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AS INSTRUÇÕES DO JOGO 


Impressas na tela, as informações contidas no pro- 
grama deste artigo permitirão que ajudemos o in- 
digitado Willie em sua incansável busca do lanche 
roubado. Aprenda ainda a chamar sub-rotinas da 
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TUDO QUE SOBE, DESCE... 


Como desenhar a trajetória de projéteis. Ffeitos 
de diferentes campos gravitacionais. Aprenda a 
simular parábolas. Movimento vertical e movimen- 
to horizontal. Como unir as rotinas. Mude o ân- 





ACASO E PROBABILIDADE 


O que é probabilidade e como medi-la. Probabili- 
dade, frequência e acaso. Um programa lançador 
de moedas. Probabilidade de vários resultados. Cur- 
va de distribuição. O triângulo de Pascal. Distribui- 
ção de frequência. Preveja o resultado ...... 774 
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PLANO DA OBRA 
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dernação de cada volume estará à venda oportunamente. 
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Janeiro: rua da Passagem, 93, Botafogo. 2. POR CARTA — Poderão ser 
solicitados exemplares atrasados também por carta, que deve ser enviada 
para DINAP — Distribuidora Nacional de Publicações — Números Atra- 
sados — Estrada Velha de Osasco, 132, Jardim Teresa — CEP 06000 — 
Osasco — SP. Não envie pagamento antecipado. O atendimento será fei- 
to pelo reembolso postal e o pagamento, incluindo as despesas postais, 
deverá ser efetuado ao se retirar a encomenda na agência do Correio. 3. 
POR TELEX — Utilize o nº (011) 33 670 DNAP. 

Em Portugal, os pedidos devem ser feitos à Distribuidora Jardim de Pu- 
blicações, Lda. — Qta. Pau Varais, Azinhaga de Fetais — 2 685, Cama- 
rate — Lisboa; Apartado 57 — Telex 43 069 JARLIS P. 

Atenção: Após seis meses do encerramento da coleção, os pedidos serão 
atendidos dependendo da disponibilidade do estoque. 
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além do número da edição. 
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Impressas na tela, as informações 
contidas no programa deste 

artigo permitirão que ajudemos o 
nfortunado Willie em sua 

incansável busca do lanche roubado. 


A primeira coisa a fazer é colocar o ti- 
tulo na tela. Em seguida, são fornecidas 
as instruções. Como estamos programan- 
do e conhecemos cada detalhe envolvido, 
às vezes esquecemos que outras pessoas 
não têm a menor idéia dos objetivos do 
jogo e não sabem como jogar. Assim, é 
necessário colocar na tela toda informa- 
ção relevante, de maneira que o usuário 
não seja obrigado a parar O jogo a cada 
momento para ler o folheto de instruções. 








As informações devem ser bem claras e 
objetivas. Ao mesmo tempo, é convenien- 
te “temperar” o texto com algum enre- 
do, já que um videogame deve apelar à 
imaginação do jogador e não simplesmen- 
te testar seus reflexos. 


Mais uma vez, utilizaremos um pro- 
grama em BASIC para colocar as instru- 
ções — letra por letra — na memória, 
criando uma tabela de códigos ASCIH. 

Para que a tabela sirva aos nossos pro- 
pósitos, é importante que o número de 
códigos de caracteres transferidos para a 
memória seja exato — afinal, eles vão ser 
lidos pelo programa em código. Como o 
leitor pode ter problemas para descobrir 


] MAIS TABELAS DE DADOS 

— EMASI 
E ESCREVA NA TELA 
E | COMO CHAMAR SUB-ROTINAS 
DA ROM 


o número de espaços em cada linha, va- 
mos conferir: no final da linha 100, há 
um espaço; no final da linha 120, três; na 
140, três; na 160, catorze; na 180, um; na 
240, dois; na 300, três, e na 320, 26 espa- 
ços em branco. Nas linhas 330 e 340 há 
quatro espaços entre as teclas e o hifen, 
e um espaço entre o hifen e a função da 
tecla. No final da linha 330 temos deze- 
nove espaços e no final da 340, dezenove 
espaços também, Todos os demais claros 
na listagem correspondem a um caracte- 
re de espaço apenas. Outra maneira de 
conferir os dados consiste em contar exa- 
tamente 32 caracteres em cada linha DA- 
TA, exceto na 320, que tem 34 caracteres. 
Antes de passar à execução, proteja o 
topo da memória com CLEAR 57434. 
Quando executarmos o programa, se- 
rá criada uma tabela com instruções. Ao 











final do programa, o laço FOR...NEXT 
entre as linhas 500 e 520 projeta na tela 
uma imagem da porção da memória que 
contém a tabela. 


10 LET x=57480 
20 FOR n=1 TO 16 


30 READ aS: FOR o=1 TO LEN as 
POKE x,CODE (aS(o TO o)): 
LET x=x+1: NEXT o 

a0 NEXT n 

100 DATA " Apos um pequeno pas 
seio,Willie * 
120 DATA "volta e descobre que 

um bando ç 

140 DATA "de cabritos espalhou 


todo seu 
1580 DATA "lanche na encosta. 


180 
ao fopo da 
200 DATA “montanha e recuperar 
aguas coisas 

220 DATA "enfrentando 
anche, cobras” 

240 DATA "e podendo 

um buraco. 

260 DATA "Para piorar a siluac 
ao a mare " 
280 DATA "esta 
orre o risco” 
290 DATA "de se afogar. 
judar Willie” 

300 DATA "leia as 
aperte a aj 

320 DATA 


DATA "Agora ele deve subir 
uma aval 


ate cair nm 


asubindo e ele c 
Para a 
ing trucoes e 


"tecla '5' 


"“N - Correr 


+ 


330 DATA 


DATA "M - Saltar 
DATA ” ou Ambos” 
FOR n=57435 TO 58000 
PRINT CHABAS PEEK n; 
NEXT nm 


340 


360 
500 
510 
520 


Os dados que este programa coloca na 
memória usando POKE são utilizados pe- 
la seguinte rotina em Assembly: 


10. REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
"O REM 
BO REM 
90 REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


org 58104 
call cl 
ld 1x,57480 
ld h1,32 
ld a,? 

ld b,253 
call me 
ld b,138 
call me 
ld de,39 
add hl,de 
ld b,100 
ld a,7/0 
call me 
ktt ld a,253 
in a,254 
bit 1l,a 
yr nz, ktt 
ret 

org 58192 
cl * 


org 58155 





230 REM me * 


Esses dois programas — ou o seu pro- 
duto, criado após a execução ou a mon- 
tagem pelo Assembler — devem ser gra- 
vados da mesma maneira que a primei- 
rar parte do videogame Avalanche (veja 
artigo publicado à página 748). 

Para que tal rotina funcione adequa- 
damente, essa parte do jogo e a tabela 
criada pelo primeiro programa BASIC 
também devem estar na memória. Isso 
exige que elas sejam gravadas em códi- 
go; caso contrário, terão de ser monta- 
das novamente. 

Para gravar e ler código de máquina 
em fita cassete — o que inclui os códigos 
da tabela ASCII —, o usuário do Spec- 
trum tem à sua disposição comandos SA- 
VE e LOAD especiais. 



































































NA O 


Para gravar os códigos de uma porção 
da memória, digite: 
SAVE "nome” CODE endereço inici 
al,nºO de bytes 

Para recuperar os mesmos códigos da 
fita cassete, use: 


LOAD 
al 


“nome” CODE endereço inici 

O endereço inicial pode ser omitido se 
for igual ao do momento da gravação. Os 
códigos das diversas partes do videoga- 
me Avalanche também devem ser grava- 
dos: caso isso não aconteça, O usuário 
gastará cada vez mais tempo na monta- 
gem, adicionando novas rotinas e tabe- 
las. Os endereços iniciais e finais devem 
ser anotados. O próprio Assembler dá es- 
sa informação durante a montagem, 


| 











| 





) Também é bom registrar os endereços dos 
rótulos, para utilizá-los em instruções com 
asteriscos (cálculos de saltos e desvios). 


a ESCREVA AS INSTRUÇÕES NA TELA 
à | A rotina cl — que está na primeira 
| parte do programa — é chamada para fa- 
e zer a limpeza da tela. Já a rotina me será 
g | usada novamente para escrevermos na te- 
|- la; para isso, temos que colocar valores 
L- | adequados em certos registros, que con- 
q trolam as características do texto a ser im- 
|- presso, 
à Para começar, alocamos no registro 
n IX o endereço inicial da nova tabela de 


j- códigos ASCII criada pelo programa BA- 
. SIC. A posição da tela em que começa- 
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remos a escrever deve ser colocada no par 
de registros HL; a cor das letras, em A, 
e o comprimento do texto, em B. Para 
imprimir os vários segmentos do texto, é 
preciso chamar diversas vezes a rotina me. 
Antes de cada chamada, porém, devem 
ser distribuidos os parâmetros relaciona- 
dos — posição inicial na tela e número 
e cor das letras — nos registros ade- 
quados. 

Quando chamarmos me pela primeira 
vez, B estará contendo o valor 255, que 
corresponde ao comprimento do texto. 
Na segunda vez, B estará contendo 138. 
A rotina deve ser chamada duas vezes 
porque 255 é o maior número que o regis- 
tro B, de oito bits, pode abrigar. 138 é 
o restante do texto, que não pode ser im- 
presso de uma só vez por me. Não é pre- 
ciso definir novamente a posição de im- 
pressão na tela — HL —, já que a segun- 
da parte dos dados segue imediatamente 
a primeira e o conteúdo desse par é atua- 
lizado pela própria rotina de impressão 
(veja a rotina me na primeira parte do 
programa). 

Quando quisermos imprimir a tercei- 
ra parte do texto, contudo, precisaremos 
usar uma nova posição na tela, Isto é feito 
para criar um espaço entre o texto inicial 
— que conta os azares de Wille — e as 
instruções sobre o uso do teclado, que 
orientam sobre quais teclas apertar para 
saltar e/ou correr. Existem duas manei- 
ras de criar esse espaço: colocando uma 
série de códigos de espaço na tabela AS- 
CII, ou dando um novo valor a HL. Pro- 
curamos ilustrar as duas técnicas no pro- 
grama. Se consultarmos a listagem do 
programa BASIC que criou a tabela de 
dados, veremos que existem 26 espaços 
em branco na linha 320 (naturalmente eles 
foram transferidos para a tabela). Olhan- 
do a listagem Assembly, verificaremos 
que o número 39 foi colocado em DE pe- 
lo comando ld de,39. Depois disso, o con- 
teúdo de DE foi somado ao de HL. O par 
HL funciona como um acumulador de 
dezesseis bits, de forma que o resultado 
da operação permanece em HL, que é o 
local apropriado para o endereço de im- 
pressão na tela quando chamamos nova- 
mente a rotina me. 

O restante do texto tem cem caracte- 
res de comprimento e é impresso na cor 
amarelo brilhante — código 70 — e não 
mais em branco — código de cor 7 —, 
como as linhas iniciais. 





ESPERE PELO TIRO DE LARGADA 


As instruções permanecem no vídeo 
até que pressionemos a tecla S, dando ini- 
cio ao jogo propriamente dito, Para tor- 





nar isso possível, usamos uma rotina que 
detecta mudanças no teclado por meio do 
comando in. 

Esse comando permite o que chama- 
mos de “varredura do teclado”, de um 
modo idêntico ao usado no programa 
Trace, do artigo Rastreamento no Spec- 
trum (página 381). Naquela ocasião, que- 
ríamos detectar as teclas <BREAK> e 
<SYMBOL SHIFT>; agora, nossas 
atenções estão na tecla S. E o valor colo- 
cado em A, antes da execução do coman- 
do in, que determina a porção do tecla- 
do a ser verificada. Assim, Id a,253 faz 
com que a linha in a,254 verifique o con- 
junto de teclas ao qual S pertence. 

O valor recebido através da porta 254 
é colocado em A. Se o bit | desse nume- 
ro estiver “ligado” é porque S foi pres- 
sionada. Quando isso acontece, o resul- 
tado da operação bit 1,a é zero, ativan- 
do o indicador de zero. 

O processador ficará girando, preso no 
laço rotulado como ktt, até que a tecla 
S seja pressionada, ativando o indicador 
de zero e evitando o salto jr nz, ktt, já 
que a condição nz — resultado da última 
operação não é zero — não foi satisfei- 
ta. Normalmente, O programa prossegui- 
ria; por enquanto, porém, uma instrução 
ret provocará o retorno ao BASIC, ter- 
minando assim esta segunda parte de 
Avalanche. 

Note que os rótulos correspondentes a 
rotinas montadas em outras listagens de- 
vem ter seu endereço definido por org, se- 
guido do rótulo e de um asterisco. Esse 
procedimento permite ao Assembler cal- 
cular os saltos para tais rótulos (cl e me, 
neste caso). O asterisco impede que a po- 
sição de memória correspondente seja al- 
terada. 

Se chamarmos o programa tal como 
foi estruturado até aqui, ele escreverá a 
tela de instruções logo após a impressão 
da tela do título, e aguardará que pres- 
sionemos a tecla S. A instrução ret do fi- 
nal do primeiro programa foi apagada pe- 
la montagem da segunda parte, de modo 
a fazer das duas listagens um todo único 
e coerente. 


Assim como no exemplo precedente, 
utilizaremos aqui um programa escrito em 
BASIC para colocar — letra por letra — 
as instruções na memória, criando uma 
tabela de códigos ASCII. Adicione as 
próximas linhas ao programa do artigo 
anterior. Antes de executá-lo, lembre-se 
de proteger o topo da memória com 
CLEAR 200, 17999. 


20 FOR I=-i TO 4 
70 NEXT A,I 
BO DATA 


"“avalanchecriacao: a.do 





| | 
| 
| | 
| | | 


e programa: s. kellaway e q. he 


dley” 

AS DATA ” depois de um pequeno 
passeio willie descobre que 
cabritos monteses espalhara 

m todo seu lanche pela encos 

ta. agora ele tem de 


subir ao topo * 

90 DATA ”" da montanha pegar sua 
sm coisas. no caminho ele sera 
ameacado por pedras, cobras 
e buracos. para piorar a situ 
acao, a mare esta subindo, pod 
endo afoqga-lo. para ajudar will 
ie leia as instrucoes e ap 
erte 's' para jogar. *” 

100 DATA "m - corrern - saltarm 
n - ambos” 


Para que a tabela sirva aos nossos pro- 
pósitos, é importante que o número de 
códigos de caracteres transferidos para a 
memória seja exato (afinal, eles vão ser 
lidos pelo programa em código). Como 
o leitor pode ter problemas para desco- 
brir o número de espaços em cada linha, 
é conveniente conferi-los: no final da li- 
nha 85, aparecem conjuntos de espaços 
com os seguintes tamanhos: 2, 1, 4,1, 4, 
4 e 12, segundo a ordem. Na linha 90, a 
sequência é a seguinte: 1,2, 4,3,2,1, 
6, 4e 2. Na linha 100, os espaços têm ape- 
nas um caractere em branco. 

A seguir, apresentamos o programa 
em código que utiliza a tabela ASCII cria- 
da pela listagem anterior. Para montá-lo 
na memória, recorra ao Assembler de IN- 
PUT. Antes disso, porém, use os coman- 
dos POKE que aumentam a memória dis- 
ponível e proteja o topo da memória com 
CLEAR 200,18999. 


10 ORG 19054 
20 LDX 41024 
30 LDY 617058 
40 CLRB 

50 JBR LPRINT 
60 LDB 4137 
70 JSR LPRINT 
BO LEAX 24,X 


90 LDB 410 

100 JSR LPRINT 
110 LEAX 22,X 

120 LDB +10 

130 JSR LPRINT 
140 LEAX 22,X 

150 LDB 410 

160 JSR LPRINT 
170 KEY JSR 41409 
180 CMPA 483 

190 BNE KEY 

200 RTS 

210 LPRINT EQU 19174 


Esses dois programas — ou O seu pro- 
duto, criado depois de ter sido executa- 
do (ou montado) pelo Assembler — de- 
vem ser gravados da mesma maneira que 
a primeira parte do videogame Avalan- 
che (os endereços iniciais e finais devem 
| ser calculados e usados no comando de 





gravação dos códigos). Para que a rotina 
acima funcione adequadamente, a primei- 
ra parte do jogo e a tabela criada pelo 
BASIC completo devem estar na memoó- 
ria também. 

Faça a gravação dos códigos corres- 
pondentes às tabelas e aos programas, 
empregando o comando CSAVEM, que 
tem a seguinte sintaxe: 


CSAVEM “nome”, endereço inicial, 


endereço final 


ESCREVA AS INSTRUÇÕES NA TELA 


Esse programa usa a mesma sub-rotina 
LPRINT que a rotina da página do títu- 
lo empregou para escrever na tela. Note 
que a tabela ASCII criada pelo progra- 
ma BASIC é uma continuação da que 
continha os códigos da página do título, 
de forma que o programa está utilizando 
a mesma tabela ASCII. 

Toda vez que chamarmos LPRINT, 
devemos colocar nos registros apropria- 
dos os parâmetros do texto a ser impres- 
so. Assim, X deve conter a posição da tela 
onde desejamos iniciar a impressão, B, o 
comprimento do texto, e Y, a posição do 
início do texto na tabela. 

Se olharmos para a listagem Assembly 
da sub-rotina LPRINT — apresentada na 
primeira parte —, veremos que o regis- 
tro Y tem seu valor aumentado na medi- 
da em que a tabela ASCII vai sendo “li- 
da” pelo programa. Desse modo, o pro- 
grama principal não precisará corrigir o 
valor de Y toda vez que a rotina for cha- 
mada; na verdade, Y é aumentado, gra- 
dativamente, indicando sempre, linha 
após linha, o início da porção apropria- 
da da tabela. 

Definida a origem do programa, o en- 
dereço inicial da tela é colocado em X por 
LDX 4 1024 e o endereço inicial do tex- 
to das instruções é posicionado em Y por 
LDY 417060. A instrução CLRB limpa 
o conteúdo de B, sendo um modo rápi- 
do de colocar zero nesse registro. O va- 
lor zero funciona como se fosse 256; as- 
sim, quando a rotina LPRINT for cha- 
mada por JSR LPRINT, serão impressos 
256 caracteres. 

Ao chamarmos LPRINT pela primei- 
ra vez, B estará contendo o valor 256, que 
corresponde ao comprimento do texto. 
Na segunda vez, B estará contendo 137. 
A rotina será chamada duas vezes, pois 
256 é o maior número que o registro B, 
de oito bits, pode conter. 138 é o resto 
do texto que não pode ser impresso todo 
de uma vez por LPRINT. 

As instruções LEAX somam valores 
adequados ao conteúdo de X para que a 
posição de impressão na tela correspon- 
da ao início da linha seguinte; é por isso 





que não há espaços entre as palavras que 
ficam no final e no início de linhas adja- 
centes. A sub-rotina LPRINT é chama- 
da então mais quatro vezes para escrever 
as linhas que orientam as funções das te- 
clas. A cada chamada, o valor de B é 
acertado por uma instrução LDB; o va- 
lor de X é ajustado por um LEAX (Y é 
acertado pela própria rotina LPRINT). 

A sub-rotina KEY aguarda que a te- 
cla S seja acionada para que o jogo te- 
nha início. Para verificar o teclado, o pro- 
grama utiliza uma sub-rotina da ROM. 
Assim, a instrução JSR 41409 salia para 
essa sub-rotina, que verifica qual tecla es- 
tá sendo pressionada. 

Se alguma tecla estiver sendo pressio- 
nada, o processador retornará da sub- 
rotina trazendo o código da tecla corres- 
pondente dentro do acumulador. A ins- 
trução CMPA £83 compara então o có- 
digo da letra S — 83 — com o conteúdo 
do registro A. Se S não tiver sido aciona- 
da, a condição de BNE KEY (salta, se 
não for igual”) estará satisfeita e o mi- 
croprocessador será enviado novamente 
ao rótulo KEY. O processo se repetirá até 
que seja pressionada a tecla 5. Nesse ca- 
so, a condição de BNE não estará satis- 
feita e o programa seguirá seu curso até 
ser interrompido por uma RET. O rótu- 
lo correspondente a LPRINT deve ter o 
endereço especificado por uma instrução 
EQU; assim, o Assembler poderá calcu- 
lar os saltos para aquela sub-rotina. 


1 REAR Ed 


O Assembly listado a seguir cria a tela: 
de instruções ao jogador. Para fazer is- 
so, ele utiliza dados de uma tabela de có- 
digos ASCII criada por um programa 
BASIC; nele incluímos uma rotina de 
“varredura” do teclado, que aguarda que 
pressionemos a tecla 5: 





10 org -12233 
20 ld de,0 

30 ld h1l,-13958 
ao ld bc,960 

50 call 92 


60 ktt call 159 
70 cp 83 

Bo yr ngz,ktt 

90 ret 

100 end 


Para montar esse programa, utilize 
nosso Assembler. Grave o programa- 
fonte e o programa-objeto da mesma for- 
ma que na primeira parte do videogame. 

Como das vezes anteriores, precisare- 
mos de um BASIC para colocar na me- 
mória os códigos das letras que compõem 
a tela de instruções. Digite-o, mas não O 
execute ainda. | 








VOADOR E 


LO SCREEN O:CLEAR 200,-14000:KE 
Y OFE 


20 FOR 1=1 TO 22: READ AS: PRIN 
T TAB(1);AS: NEXT 

30 FOR [=0 TO 959 

40 POKE -139588+1T, VPEEK (BASE (O) 
+13 

SO NEXT 

60 CLS 


70 DEFUSAR1I--12288 
80 A=USRI (0) 


90 CLS 

LO0 END 

200 DATA " Após um pequeno P 
asgsesjo, Wilie”" 

210 DATA "volta ao local onde Pp 
retendia fazer” 

220 DATA “aeu pique-nique e des 
cobre que um” 

230 DATA "bando de cabritos mon 
teses espalhou” 

240 DATA "todo seu lanche na en 
cogta.' 

245 DATA 

280 DATA * Agora ele deve au 
bir ao fopo da * 

260 DATA “montanha para recuper 
ar suas colsas, ” 

270 DATA “enfrentando uma avala 
nche, cobras” 


280 DATA “venenosas e correndo 
o rigco de cair” 

290 DATA “num buraco.” 

29% DATA 

300 DATA * 
uação, a maré” 
3140 DATA “está aubindo e ele po 
de se afogar.” 

a20 DATA "Se você quer ajudar W 
1]lli1e, leia as” 

330 DATA "ingtruções e pression 
e a tecla '5'. 
335 DATA:DATA 
340 DATA "Use:”" 
350 DATA * N 
Correr" 

360 DATA " M 
Saltar” 

370 DATA " 
Salto Diagonal” 


Para piorar a sit 


para 
para 


Ambos para um 


As linhas 70 e 80 tentam executar o 
programa do jogo como foi publicado até 
o momento. Se a primeira parte dele não 
estiver na memória ainda, a execução do 
comando da linha 80 vai apagar toda a 
memória. 

Esse programa utiliza o comando 
READ para obter as frases da tela de ins- 
trução nas linhas DATA do final da lis- 
tagem. Depois de escrita, a tela é total- 
mente transferida para a memória pelo la- 
ço entre as linhas 30 e 50. A tabela AS- 
CII é criada assim: o comando VPEEK 
obtém os códigos diretamente na memó- 
ria de vídeo e o comando POKE os colo- 
ca na RAM. 

Para que a tela mantenha a tabulação 
original é bom conferir: no início das li- 
nhas 200, 250 e 300, há quatro espaços 
em branco. Nas linhas 350 e 360, cada va- 





zio no texto contém cinco espaços. Uma 
vantagem dessa técnica de transferência 
da tela para a memória é que você pode 
criar sua própria tela de instruções se não 
estiver satisfeito com o aspecto da nossa. 


COMO MONTAR O PROGRAMA INTEIRO 


Eis algumas explicações adicionais so- 
bre como montar o programa. 

A primeira coisa a fazer é carregar o 
Assembler na memória. Depois de tomar 
as providências necessárias para proteger 
a memória na linha 5000, monte o 
programa-fonte do artigo anterior. Du- 
rante a montagem é interessante anotar 
o endereço inicial, o endereço final e os 
endereços dos rótulos. 

Terminada a montagem, a rotina em 
código estará na memória. Quem ainda 
não a gravou em fita deve fazê-lo por in- 
termédio do comando: 


BSAVE "CAS:AVAL1",-12288,-12233 


A seguir, o Assembly deve ser digita- 
do, gravado e montado (anote os ende- 
reços principais durante o processo de 
montagem). A rotina em código pode en- 
tão ser gravada da mesma maneira. 

Depois, digite NEW, apagando o As- 
sembler da memória, e carregue o BASIC 
que cria a tabela ASCII da tela-título, lis- 
tado no artigo anterior. Quem já gravou 
a tabela correspondente com o comando 
BSAVE pode carregá-la da fita com 
BLOAD, mas terá que proteger o topo 
da memória antes. Quem não fez isso ain- 
da deve executar o programa. As linhas 
finais deste último testam a rotina em có- 
digo; com a sua execução, a página-título 
surge na tela; após uma pequena pausa, 
esta se enche de caracteres aleatórios. Is- 
so acontece porque a rotina tenta escre- 
ver a tela de instruções, mas a tabela ne- 
cessária não se encontra ainda na memó- 
ria. Para continuar, aperte a tecla S e lim- 
pe a tela. 

Finalmente, carregue o programa BA- 
SIC apresentado linhas atrás e execute-o. 
As linhas finais testam a rotina comple- 
ta, que escreve o título, provoca uma pau- 
sa, apaga a tela, escreve as instruções e 
aguarda que a tecla S seja pressionada. 
A tabela ASCII completa pode ser então 
gravada com: 

BSAVE "CAS:ASCII”,-14000,-12998 

É aconselhável gravar os códigos das 
rotinas e tabelas usando o comando BSA- 
VE. Senão, teremos que gastar um tem- 
po cada vez maior para a montagem. 
Após gravar os códigos, proteja a memó- 
ria, digitando a instrução. 





CLEAR 200,-14000 


(proteção feita antes pelos programas BA- 
SIC). Posicione a fita nas rotinas em có- 
digo e carregue-as com: 


BLOAD “CAS:” 


Finalmente, posicione a fita nos códi- 
gos da tabela ASCII e carregue-a usando 
o mesmo comando BLOAD, Para exe- 
cutar o programa, digite: 


DEFUSR=-12288:A = USR(O0) 


| ESCREVA NA TELA 


| Esse programa recorre à mesma sub- 
rotina da ROM utilizada pela rotina da 
página do título para escrever na tela, A 
tabela ASCII criada pelo programa BA- 
SIC é uma continuação da que continha 
os códigos da página do título, de forma 
que o programa está utilizando a mesma 
tabela ASCII. 

Toda vez que chamarmos essa sub- 
rotina, devemos colocar nos registros 
apropriados os parâmetros do texto a ser 
impresso. Assim, DE deve conter a posi- 
ção da tela onde desejamos iniciar a im- 
pressão do texto; BC, o comprimento do 
texto; e HL, a posição do início do texto 
na tabela ASCII. 

A sub-rotina ktt aguarda que a tecla 
S seja pressionada para que o jogo come- 
ce. O programa verifica o teclado utili- 
zando uma sub-rotina da ROM. Assim, 
a instrução call 159 salta para essa sub- 
rotina, que espera até uma tecla ser pres- 
sionada. 

Se alguma tecla for pressionada, o pro- 
cessador retornará da sub-rotina trazen- 
do o código da tecla correspondente den- 
tro do acumulador. A instrução cp 83 
compara então o código da letra 2 — 83 
— com o conteúdo de A. Se S não tiver 
sido pressionada, a condição do coman- 
do jr nz,ktt (“salta, se o último resulta- 
do não for zero") estará satisfeita e o mi- 
croprocessador será novamente enviado 
para o rótulo ktt. O processo se repetirá 
até que seja pressionada a tecla S. Nesse 
caso, a condição de nz não será satisfeita 
e o programa prosseguirá seu curso, até 
encontrar uma instrução ret. 

Ao executarmos o programa, veremos 
aparecer um cursor no canto superior es- 
querdo da tela de instruções. Ele é colo- 
cado ali pela rotina da ROM que verifica 
o teclado. Para tirá-lo dessa posição, te- 
ríamos que escrever nossa própria rotina 
para detectar o toque na tecla S. Depois 
que a tecla for pressionada e o programa 
terminar, o texto permanecerá na tela. Sa- 
bemos que a rotina terminou porque sur- 
ge a mensagem “OK” no meio do texto. 















DESCE... 


Segundo Galileu Galilei (1564-1642), 
todo objeto lançado sobre a superfície 
da Terra sofre a ação de duas forças: a 
que o impulsiona para a frente (ou pa- 
ra o alto) e a que o atrai para o planeta 
(força de gravidade). A interação des- 
sas duas forças leva o corpo a descrever 
uma curva parabólica. O desenho desse 
tipo de trajetória torna-se muito simples 
quando se trabalha com um compu- 
tador. 

Um objeto lançado para cima, por 
exemplo, distancia-se — a princípio, ra- 
pidamente — das superfície da Terra 
sob a ação do impulso inicial, perden- 
do velocidade por efeito da gravidade. 
Este artigo mostra como programar e si- 
mular o movimento de projéteis. 

Muitos jogos de combate são am- 
bientados no vácuo do espaço sideral 
porque lá se pode ignorar a ação da for- 
ça gravitacional e da resistência do ar no 
cálculo do movimento de naves e mís- 
seis. Isso não quer dizer que não exista 
nenhuma gravidade no espaço; existe, 
mas é tão pequena que pode ser despre- 
zada para efeitos práticos. 

Em contrapartida, batalhas simula- 
das na superfície terrestre têm que levar 
em conta a ação da gravidade e, fre- 
quentemente, a resistência do ar e o efei- 
to dos ventos. Além de jogos de guer- 
ra, podem surgir várias outras circuns- 
tâncias em que o conhecimento de co- 
mo se dá o movimento de projéteis seja 
essencial para um efeito realístico. En- 
tre elas estão muitos esportes e simula- 
ção de provas de atletismo, como lan- 
camento de dardo e de disco, mergulho 
e todo o tipo de salto. 

Os projéteis citados (sejam pessoas 
ou objetos) têm uma coisa em comum: 
eles se movem segundo uma trajetória 
que pertence a um grupo de curvas co- 
nhecidas como parábolas. Escrever um 
programa para simular movimento em 
trajetória parabólica não é difícil, reque- 
rendo apenas a compreensão das forças 
que atuam sobre o objeto e o emprego 
de matemática elementar. 

Saber, por exemplo, que o movimen- 
to executado por uma bola ao ser chu- 
tada resulta da combinação de movi- 
mento em duas direções já fornece sub- 
sídios suficientes para resolver o proble- 


RS ma da programação. Uma dessas dire- 


ONO 


TUDO QUE SO! 





ções é paralela ao eixo horizontal ou ei- 
xo X de um sistema cartesiano. A outra 
é vertical, paralela ao eixo Y. Nesta li- 
ção, estabeleceremos como premissa que 
o objeto se move com velocidade cons- 
tante na direção horizontal. Na realida- 
de, o objeto seria desacelerado pela re- 
sistência do ar, mas este é um detalhe 
que costuma ser ignorado, a não ser em 
trabalhos de grande precisão. 





MOVIMENTO HORIZONTAL 


Digite esse primeiro programa para 
simular o movimento horizontal, e cui- 
dado para não confundir a letra I com 
o número 1. Todos os programas são 
para o BASIC padrão da máquina. 


| 


100 BORDER 7: PAPER 7: INK O: 


CLS 

105 POKE 23658,8 

110 PRINT INVERSE 1;AT 2,12;" 
MENU ” 


120 PRINT AT 6,0;" 1-MOVIMENTO 
PURAMENTE HORIZONTAL” 
130 PRINT AT 8,0;"2-MOVIMENTO 
PURAMENTE VERTICAL” 
140 PRINT AT 10,0;"3- MOVIMENT 
oO MISTO” 
150 PRINT AT 12,0;"4- ELEVACOE 
Ss” 
200 LET IS=INKEYS: IF 1$="" 
THEN GOTO 200 
205 IF IS<"1” OR 15>"4" THEN 
GOTO 200 
210 GOSUB VAL T$*1000 
220 RUN 
1000 CLS 
1020 LET SP=30 
1030 PRINT "VELOC. HORIZONTAL M 
DS a 
1040 FOR R=124 TO 28 STEP -16 
1045 LET T=0 
1050 PRINT AT 21-(R/8),0;SP 
1060 INPUT "<ENTER> PARA ATIRAR 
"+ LINE 28 
1090 LET X=SP*AT: LET T=T+1 
1100 PLOT 30+X,R: SOUND .1,R/4 
1110 PAUSE 10 
1120 IF JO+SPAT<250 THEN GOTO 
1090 
1150 IF R=28 THEN GOTO 1200 
1160 INPUT "NOVA VELOCIDADE (O 
SAI)”, LINE 15 
1165 LET SP=VAL IS 
1170 IF SP<0 OR SP>1000 THEN G 


LL 


Um objeto lançado para o alto descreve 
uma curva parabólica. Isaac 

Newton (1642-1727) demonstrou que, se 
a altura de lançamento for muito 

grande, o objeto cairá fora da Terra. 






d = 
É + Sa 
ses ADO = 


OTO 1160 

1190 IF SP=0 THEN 
1200 NEXT R 

1210 RETURN 


a 
| 


LET R=28 


100 CLS: PMODE 3 

110 PRINT €13,"menu” 

120 PRINT 6128," 1-MOVIMENTO PUR 
AMENTE HORIZONTAL” 

130 PRINT €192,"2-MOVIMENTO PUR 
AMENTE VERTICAL” 

140 PRINT €256,"3-MOVIMENTO MIS 
TO” 

150 PRINT €320,"4-ELEVACOES” 
160 AS=INKEYS:IF AS<"1”" OR AS>” 
4” THEN 160 

170 ON VAL(AS) GOSUB 1000,2000, 
3000,4000 











mi Bei bad li bad Lai ota Db É bai fado dado fd is jd jd 
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ODOR 





EE | COMO DESENHAR A TRAJETÓRIA FUNCIONAMENTO DO PROGRAMA 
“DE PROJÉTEIS MOVIMENTO VERTICAL 

= * EFEITOS DE DIFERENTES MOVIMENTO HORIZONTAL 
CAMPOS GRAVITACIONAIS COMO UNIR AS ROTINAS 

Es COMO SIMULAR PARÁBOLAS MUDE O ÂNGULO 

























180 AS=INKEYS HEN D=D-1:GOTO 1110 NOVA VELOCIDADE (0 SAI):*;: INPU 
190 IF INKEYS="" AND PEEK(65314 1120 IF SP*(T+1)/5<223 THEN 109 T SP 
)J<>7 THEN 190 ELSE RUN Q 1170 IF SP<O OR 5P>999 THEN 116 
1000 PCLS 1130 IF R>150 THEN 1200 O) 
1010 LINE(0,0)-(255,191), PSET,B 1135 D=200 1190 IF SP=0 THEN R=160 
1020 SP=30 1139 AS=INKEYS 1200 NEXT 
1030 CLS:PRINT"VELOCIDADE HORIZ 1140 IF INKEY3="" AND D>0 THEN 1210 RETURN 
ONTAL” : PRINT “M/S...” D=D-1:GOTO 1140 


1040 FOR R=39 TO 159 STEP 24:T= 1160 PRINT €448,"": PRINT 6448,” 

-1 

1050 PRINT €32*INT(R/12)-1,8P;”" 

*". PRINT 6448," <ENTER> PARA ATI 
| RAR" 

1060 IF INKEYS<>CHAS (13) THEN 1 

060 

1070 SCREEN 1,0 

1090 T=T+1]:X=SP*T 

1100 PSET(30+X/5,R,2) : SOUND R,1 

1105 D=50 

1110 IF PEEK(345)=255 AND D>0 T 






SCREENO:CLS:COLOR 15,4,4 
110 LOCATE 16:PRINT"M E N U” 
120 LOCATE 4,6:PRINT"IL - MOVIME 
NTO HORIZONTAL PURO” 

130 LOCATE 4,8:PRINT"2 - MOVIME 
NTO VERTICAL PURO" 

140 LOCATE 4,10:PRINT"T3 - MOVIM 
ENTO COMBINADO” 

150 LOCATE 4,12:PRINT"4 - ANGUL 
OS VARIÁVEIS” 

160 AS=INKEYS:IF AS<"1”" OR AS>” 
4” THEN 160 

170 ON VAL(AS) GOSUB 1000,2000, 



















3000,4000 
190 IF INKEYS="" THEN 190 ELSE 
RUN 






1000 SCREEN 2,0,0 
1010 LINE (5,0)-(250,160),15,B 

1020 SP=30 

1030 OPEN "GRP:” FOR OUTPUT AS 

t1:PRESET (5,161):PRINT41,"VELO 
CIDADE HORIZONTAL EM M/S" 

1040 FOR R=30 TO 150 STEP 24:T= 
-=1 ] 

1050. PRESET (6,R-9) :PRINT4I,SP: 
LINE (250,195)-(5,180),4,BF:PRI 
NT$41,"TECLE <RETURN> PARA DISPA 

















4d E Rr did! RAR” 

f: A 
ER Da 1060 IF INKEYS<>CHAS (13) THEN 1 
060 






i [ E a | I ui 
| | | | | | 
N R | Em (a E a, 


1090 T=T+1:H=SP*T 

1100 PSET (30+X/5,R),15:PLAY"N] 
LIS” 

1110 FOR 1=1 TO 100:IF INKEYS < 
2CHRS (32) THEN NEXT 1 

1120 IF SP*(T+1)/5+30<240 THEN 
1090 

1130 IF R>145 THEN 1200 

1140 FOR I=1 TO 200:IF INKEYSS> 
CHARS (13) THEN NEXT 1 

1160 LINE (250,195)-(5,180),4,8B 


F:PRINT4l, "NOVA VELOC? (0 TERMI 
NA) :":5PS="" 

1162 PRESET (210,180):PRINT+L,S 
PS 

1165 AS=INKEYS:IF AS=CHR$(13) T 
HEN 1190 

1170 IF AS$<"0” OR AS>"9”" THEN 1 
165 

1180 SP5S=SPS+AS:GOTO 1162 

1190 SP=VAL(SPS):IF SP=0 THEN R 
=160 

1195 IF SP<O OR SP>999 THEN 116 
é 

1200 NEXT R 

1210 RETURN 


A PA 


| s rara 


eso 


95 FOR Is= 


POKE IL,A: N 
100 TEXT : 
110 PRINT 
120 VTAB 7: 
MOVIMENTO H 
130 VTAB 9: 
MOVIMENTO MV 
140 
- MOVIMENTO 
150 


VTARB ll: 


VTAB 13: 


770 
EXT 
HOME 
TAB( 16) 
HTAB 5: 
ORIZONTAL 
HTAB 5: PRINT 
ERTICAL PURO” 
HTAB 5: PRINT 
COMBINADO” 
HTAR 5: 


TO /95: READ A: 


oM ENO 
PRINT CA - 
PURO” 

o 


EE 


PRINT "4 


- ANGULOS VARIAVEIS” 


160 GET AS: 
>» "4" THEN 1 
170 ON VAL 
00,3000,4000 
180 GET AS: 
THEN RUN 


IF AS « 
60 
(AS) GOSUB 1000,20 


Li] | Es OR AS 


IF AS = CHARS (13) 


A EPP PV 


am 


Ea A Ed o A abas : a 
di me ds RE AREA 
: de E - 


E Sis 5 E 


+ 








190 

1000 
1010 
1439 
1020 


GOTO, 180 
HGR HCOLOR= 3 
HPLOT 0,0 TO 279,0 TO 279 
To 0,159 TO 0,0 
SP = 30 
1030 HOME 
1040 FOR BR = 
p= = 1 
1050 VTAR 21: PRINT "VELOC HOR 
IZ: ":S8P:;" M/S": VTAB 24: PRINT 
"TECLE <CBR> PARA DISPARAR "; 
1060 GET AS: IF AS < > CHARS 
(13) THEN 1060 
1090 T=T+1:X = SP *T 
1100 HPLOT X / 5,BR:W 
- 16336) :W PEEK ( - 
1105 PORE 16368,0 
1110 FORD = 1 To zo: 
( - 16384) < 128 THEN 
16368,0: NEXT 


30 TO 150 STEP Z4 


PEEK ( 
16336) 


Hi 


IF PEEK 
POKE  - 








1120 TE SP* (T+) 4/5 <€ 279 
THEN 1090 

1130 TIFF R > 149 THEN 1200 

1135 POKE - 16368,0 

1140 FORD = 1 TO 300: IF PEE 
Kk ( - 16384) > 127 THEN D = 300 
1150 POKE - 16368,0: NEXT 
1160 HTAB 1: VTAB 23: CALL - 
958: VTAB 23: INPUT "NOVA VELOC 
IDADE (O TERMINA) ":;SP 

1170 IF SP < 0 OR SP > 999 THE 
N 1160 

1190 IF SP = O THEN R = 160 
1200 NEXT 

1210 RETURN 

5000 DATA 172,1,3,174,1,3,169 


/4,32,168,252,173,48,192,232,20 
8,253,136,208,239,206,0,3,208,2 
31,96 


Ao executar o programa, você verá 
um menu com quatro opções. Até ago- 
ra, só a rotina para a primeira opção foi 
digitada. Assim, se teclar as opções 2, 
3 ou 4, você obterá uma mensagem de 
erro. Ao pressionar 1, o programa vai 
para a sub-rotina 1000. Esta usa um la- 
ço FOR...NEXT (linhas 1040 a 1200) 
para permitir que um objeto seja lança- 
do horizontalmente em seis velocidades 
diferentes. Na primeira vez, a velocida- 
de de 30 m por segundo é usada auto- 
maticamente e simulada no vídeo como 
uma série de pontos em linha reta. 

A seguir, você pode escolher uma ve- 
locidade diferente. Para sair do laço, 
pressione a tecla O; o programa mostra- 
rá então o menu novamente. Digite um 
valor — 60, por exemplo — e pressione 
<ENTER> ou <RETURN> para 
disparar. A ação pode ser acelerada 
acionando-se continuamente a barra de 
espaços (tecla <ENTER> no Spec- 
trum) ou teclando-a repetidas vezes. 
Agora, compare o resultado com a linha 
de velocidade 30 m/s. Escolha e com- 
pare cinco outras velocidades. Depois 
disso, o menu será reapresentado. 

A parte do programa que desenha os 
pontos fica entre as linhas 1090 e 1120. 
A variável T simula o tempo que, neste 
caso, é incrementado de um em um se- 
gundo. Desse modo, os pontos são es- 
paçados regularmente (o que é necessá- 
rio para conservar a velocidade constan- 
te) na direção horizontal. A distância 
entre os pontos é determinada pela ex- 
pressão SP*T na linha 1090, Ela faz com 
que, quanto maior a velocidade, maior 
o espaçamento entre os pontos. 

A expressão SP*T pode ser reconhe- 
cida como parte da fórmula DISTAN- 
CIA = VELOCIDADE X TEMPO, co- 
mo é ensinada nas aulas de física. Des- 
se modo, fica bem claro que o progra- 
ma usa o espaçamento entre os pontos, 
a fim de simular a velocidade. 


MOVIMENTO VERTICAL 





Digite as próximas linhas para simu- 
lar o movimento em direção vertical: 


2000 CLS 

2020 LET G=10: LET SP=50 

2030 PRINT '"ACELERACAO DA GRAV 
.: m/9/8..." 

2040 FOR R=3 TO 18 STEP 3 

2050 PRINT AT 20,R;"*";AT 21,R; 
G 

2060 INPUT 
", LINE ITS 
20B0 FOR T=0 TO 250 STEP .5 
2090 LET H=S8P*T-0.5*G*T*T 

2100 IF H>143 THEN SOUND .05,1 
O: PAUSE 50: NEXT T: GOTO 2110 
2105 IF H>=0 THEN PLOT R*8+4,H 
+32: SOUND .05,H/4: PAUSE 40: N 
EXT T 

2110 IF R>15 THEN GOTO 2180 
2140 INPUT "NOVA GRAV. (0 SAI)” 
» LINE 15 

2142 IF LEN 158=0 THEN GOTO 214 
O 

2145 LET G=VAL IS 

2150 IF NOT (LEN 15>0 AND G>=0 
AND G<400) THEN GOTO 2140 

2170 IF G=0 THEN LET R=18 

2180 NEXT BR 

2190 RETUAN 


2000 
2010 


"CENTER> PARA ATIRAR 


PCLE 

LINE (0,0)-(255,191), PSET,B 
2020 G=10:5P=50:CLS 

2030 PRINT 632," ACELERACAO DA G 
RAV.:":PRINTCM/5/5..." 

2040 FOR R=-0 TO 25 STEP 5 

2050 PRINT €416+R,"*"+MIDS (STRS 
(6), 2); 

2060 PRINT 6448," <ENTER> PARA A 
TIRAR” 

2065 IF INKEYS<>CHRS (13) THEN 2 
065 
Z070 
2080 
2090 
2095 
[5] 
2100 IF H>159 THEN SOUND 250,1: 
D=30 ELSE PSET (10+R*8,160-H,2) 
: SOUNDH+10,1:D=50 

2105 IF PEEK(345)=255 AND D>O T 
HEN D=D-1:GOTO 2105 

2108 NEXT 

2110 IF R>20 THEN 2180 

2115 D=B0Q 

2119 AS=INKEYS 

2120 IF INKEY$="" AND D>0 THEN 
D=D-1:GOTO 2120 

2140 PRINT €448,"":PRINT 6448,” 
NOVA GRAV. (O SAI):";: INPUT G 
2150 IF G<0 OR G>400 THEN 2140 
2170 IF G=0 THEN R=26 

2180 NEXT 

2190 RETURN 


SCREEN 1,0 

FOR T=0 TO 100 STEP .5 
H=SPAT-, 5*G*TAT 

IF H<O THEN T=250:GOTO 210 








nt 


2000 SCREEN 2,0,0 


2010 1.INKE (5,0)-(250,160),15;,B 
2020 SP=50:G=10 
2030 OPEN “GRP:” FOR OUTPUT AS 


+]: PRESET (5,161):PRINT&L,"ACEL 
DA GRAVIDADE EM M/58/5" 

2040 FOR R=0 TO 25 STEP 5 

2050 PRESET (R*8,150):PRINT+1,6 
:LINE (250,195)-(5,180),4,BE:PR 
INT&1,"TECLE <RETURN> PARA DISP 

ARAR” 


2060 IF INKEYS<>CHRS (13) THEN 2 
060 

2080 FOR T=0 TO 100 STEP .5 
2090 H=SP*T-. 5*G*TAT 

2095 IF H<O THEN T=250:GOTO 210 
8 

2100 IF H>159 THEN PLAY"N90LI9" 


ELSE PSET (30+R*8,160-H),15:AS 
="N"+STRS (INT(H/2))+"L1i9”: PLATA 


5 

2105 FOR I=1 TO 100:1IF INKEYS < 
>SCHRS$ (32) THEN NEXT 1 

2108 NEXT T 

2110 IE R>20 THEN 2180 

2120 FOR I=1l TO 200:IF INKEY$S < 
>CHR$S (32) THEN NEXT 1 

2140 LINE (250,195)-(5,180),4,B 
EF:PRINT4L, "NOVA G? (0 TERMINA): 
Lj) :G5=" te 
2142 PRESET (200,180):PRINT41,G 
5 

2145 AS=INKEYS:IF AS=CHR$S(13) T 
HEN 2160LIST 2100- 


2150 IF AS<"0” OR AS>"9" THEN 2 
145 

2155 GS=GS+AS:GOTO 2142 

2160 G=VAL(GS):IF 0=0 THEN R=26 
2170 IF G<0 OR G>400 THEN 2140 

2180 NEXT R 

2190 RETURN 

2000 HGBR : HCOLOB= 3 

2010 HPLOT 0,0 TO 279,0 TO 279 
1159 TO 0,159 TO 0,0 

2020 SP = 50:6 = 10 

2030 HOME VTAR 21: PRINT "G: 
M/S/5" 

2040 FOR R = O TO 25 STEP 5 
2050 VTAB 21: HTAB A + B: PRIN 


T G: VTAB 24: PRINT "TECLE <CR> 


PARA DISPARAR ”; 


2070 GET AS: IF AS < > CHARS 
(13) THEN 2070 
2080 FORT = O TO 100 STEP .5 


2090 H “ GP *T=-.5 46 * TR 
T 


2095 IF H< O THEN T = 250: GO 
TO 2107 

2100 IF H > 159 THEN POKE 769 
200: POKE 768,2: CALL 770 

2102 IF H < 160 THEN HPLOT'50 


+ R * 7,160 - H: POKE 769,H: P 
OKE 768,2: CALL 770 


2103 POKE - 16368,0 

2105 FOR D = 1 TO 20: IF PEEK 
( - 16384) < 128 THEN POKE - 
16368,0: NEXT 

2107 NEXT T 








2110 IF R > 20 THEN 2180 

2115 POKE - 16368,0 

2120 FORD = 1 TO d3I00: IF PEE 
K ( - 16384) > 127 THEN D = 300 
2130 POKE - 16368,0: NEXT 
2140 HTAB 1: VTAB 23: CALL — 
958: VTAB 23: INPUT "NOVA ACELE 
RACAO (0 TERMINA) ";G 

2150 IF G< 0 ORG > 400 THEN 
2140 

2170 IF G = O THEN R = 26 

2180 NEXT R 

2190 RETURN 


Execute o programa e escolha a op- 
ção 2 desta vez. Pressione < ENTER > 
ou < RETURNO para ver uma série de 
pontos traçados verticalmente na tela. 
Note que tais pontos não são espaçados 
regularmente, como na opção anterior; 
quanto mais alta sua localização, mais 
perto eles ficam uns dos outros, 

Isso acontece porque o objeto é de- 
sacelerado pela ação da gravidade. E 
desta vez o som ajuda a explicar o que 
está acontecendo. À medida que o ob- 
jeto sobe, a tonalidade do som torna-se 
mais aguda e, à proporção que ele des- 
ce, o som fica mais grave. 

Como antes, a rotina lhe oferece seis 
tentativas (determinadas na linha 2040) 
de experimentar diferentes valores para 
o efeito da gravidade. Elas são armaze- 
nadas na variável G, que inicialmente é 
ajustada para 10 (linha 2020) e usada na 
linha 2090. 

A relação é a fórmula para distância 
de um objeto em queda livre. Sua for- 
ma usual é: 


S = VT ++ GI *, 


onde S é a distância; V, a velocidade ini- 
cial; T, o tempo, e G, a aceleração da 
gravidade. TxT é usado na linha 2090 
em vez de T12 ou T2, porque os com- 
putadores são mais ágeis para multipli- 
car do que para calcular potências. A 
aceleração de um objeto em movimen- 
to é calculada em função da mudança 
de velocidade e do tempo decorrido. 
Perto da superfície da Terra, g tem um 
valor aproximado 10 m/s/Ss. Isso signi- 
fica que a velocidade de um objeto em 
queda aumenta de 10 m/s a cada segun- 
do. E a velocidade de um objeto em as- 
censão diminui de 10 m/s a cada segun- 
do. Esta é, portanto, uma aceleração ne- 
gativa; por isso, o sinal + (mais) da fór- 
mula padrão é substituída pelo — (me- 
nos) na linha 2090. 

O cálculo de G é comumente usado 
em relação a viagens espaciais. A acele- 


“ração de uma espaçonave saindo da ór- 


bita terrestre atinge cerca de 10 g. Isso 


sigmíica que essa aceleração é de 10x10 
m/s/s ou 100 m/s/s (a notação m/s 
também é usada com frequência). 

Na primeira passada do laço que co- 
meça na linha 2040, a posição do obje- 
to é traçada a intervalos de um segun- 
do. A velocidade inicial é de 50 m/5 e a 
aceleração é a da gravidade (10 m/5/5). 
Ambos os valores foram determinados 
na linha 2020. Como na primeira roti- 
na, apressa-se a ação pressionando-se a 
barra de espaços (ou <ENTER>, no 
Spectrum). O valor de G pode ser mu- 
dado quando um novo valor é solicita- 
do na tela. (Compare o efeito dos seis 
valores diferentes.) Antes de se comple- 
tar o laço, pode-se voltar ao menu 
pressionando-se O para aceleração. 





MOVIMENTO COMBINADO 


Para simular o movimento de um 
projétil, é necessário apenas combinar 
essas rotinas de maneira que o objeto se 
mova na horizontal e na vertical, ao 
mesmo tempo, Digite estas linhas para 
montar a terceira rotina: 


3000 CLS 
3020 LET G=10: LET SP=50 
3030 FOR R=1 TO 6 


PRINT AT 0,0;"GRAV.=";G;“m 
/8/8 "'"'"VELOCIDADE=";SP;"m/s *” 
3050 INPUT "<ENTER> PARA ATIRAR 
"+ LINE 18 

3070 FOR T=0 TO 250 STEP .5 
3080 LET H=SP*SIN ((PI/180)*45) 
AT=, EBXGATAT 

3090 LET X=SP*COS ((P1/180)*45) 
RT 

3100 IF H<175 AND X<25£ 

OTO 3105 
3102 IF H2>0 
PAUSE 25: NEXT T: 


3040 


THEN 6 


THEN SOUND 
GOTO 


.05,10: 
3110 


3103 LET T=250: NEXT T: GOTO 31 
10 

3105 IF H>=0 THEN PLOT X,H: S0 
UND .05,H/4: PAUSE 40: NEXT T: 
GOTO 3110 

3106 LET T=250: NEXT T 

3110 IF R=6 THEN GOTO 3230 
3120 PAUSE 50 

3140 INPUT "NOVA GRAV. (O SAI)” 
+» LINE TS 


3150 IF LEN 15=0 THEN GOTO 314 
O 

3155 LET G=VAL IS 

3160 IF NOT (LEN 1550 AND G>=0 
AND G<1000) THEN GOTO 3140 


3170 IF G=0 THEN LET R=6: GOTO 
3230 

3190 INPUT "NOVA VELOC.", LINE 

I5 


3195 LET SP=VAL IS 

3200 IF NOT (LEN 158>0 AND SP>0 
AND SP<1000) THEN GOTO 3190 
3230 NEXT BR 





3240 RETURN 





3000 
3010 
3020 G=10:SP=50 


PCLS 
LINE(0,0)-(255,191),PSET,B 


3030 FOR R=1 TO 6:CLS 

3040 PRINT "G =" :G;"M/8/8":P 
RINT"VELOCIDADE=";SP;"M/S” 

3050 PRINT 86448," <ENTER> PARA A 
TIRAR” 


3060 IF INKEYS<>CHAS (13) THEN 3 
060 

3065 SCREEN 1,0 

3070 FOR T=0 TO 200 STEP .5 
3080 H=SP*SIN(ATN(1))J*T-.5*G*T* 
T 

3090 X=SPX*COS (ATN(1))*T 

3095 IF H<O THEN T=250:GOTO 310 
6 

3100 IF X>251 THEN T=250:GOTO 3 


106 ELSE IF H>189 THEN SOUND 25 
0,1:D=25 ELSE PSET(X+2,190-H, (R 
+3)/2) : SOUND H+10,1:D=35 

3104 IF PEEK(345)=255 AND D>O T 
HEN D=D-1:GOTO 3104 

3106 NEXT 

3110 IF R>5 THEN 3230 

3115 D=100 

3119 AS=INKEYS 

3120 IF INKEYS="" AND D>0 THEN 
D=D-1:GOTO 3120 

3130 PRINT €6416,"":PRINT 6448," 


3140 PRINT €416,"NOVA GRAV. (0 
SAI)” ;: INPUT G 

3160 IF G<0 OR G>9999 THEN 3130 
3170 IF G=0 THEN R=6:GOTO 3230 
3180 PRINT €448,”” 

3190 PRINT €448,"NOVA VELOC.:”; 
: INPUT SP 

3200 IF SP<O OR SP>999 THEN 318 


Ô 

3230 NEXT 

3240 RETURN 

3000 SCREEN 2,0,0 

3010 LINE (5,0)-(250,160),15,8 
3020 5P=50:G=10 

3025 OPEN "GRP:" FOR OUTPUT AS 
t+ 1 

3030 FOR B=1 TO 6 

3040 LINE (250,195)-(5,161),4,8B 
F:PRINT41,"G =";G;"M/5/5 VE 
L =" 18P;"M/8”" 

3050 LINE (250,195)-(5,180),4,B 


F:PRINT4AI,"TECLE <RETURN> PARA 
DISPARAR” 


3060 IF INKEYS<>CHAS (13) THEN 3 
050 

3020 FOR T=0 TO 200 STEP .5 
3080 H=SPASIN(ATN(1))J*AT-.5*GAT* 
T 

3090 X=SP*COS(ATN(1I))*T 

3095 IF H<O THEN T=250:GOTO 310 
- 

3100 IF X>245 THEN T=250:GOTO 3 


106 ELSE IF H>159 THEN PLAY"N90 
L19” ELSE PSET (X+6,160-H),15:A 
S="N"º+STRS (INT (H/2))+"L19”: PLAY 








AS 

3104 FOR I=1 TO 1L0O:IF INKEYS < 
2CHARS (32) THEN NEXT 1 

3106 NEXT T 

3110 IF R>5 THEN 3230 

3120 FOR I=1 TO 200:IF INKEYS < 
2CHRS5 (32) THEN NEXT I 

3140 LINE (250,195)-(5,180),4,B 
F:PRINTA1I,"NOVA G? (O TERMINA): 
165=" 
3142 PRESET (200,180) :PRINT41,6 
be) 

3145 AS=INKEYS:IF AS=CHAS(13) T 
HEN 3160 


3150 IF AS<"O0O" OR AS>"9" THEN 3 
145 

3155 GS=GCS+AS:GOTO JI4z 

34160 G=VAL (65) :IF G=0 THEN R=6: 
GOTO 3230 

3170 IF G<0 OR 629999 THEN 3140 
3180 LINE (250,195)-(5,180),4,B 


F: PRINTÃA1L, "NOVA VELOC?" :SPS="" 
3182 PRESET (200, 180) : PRINT&L,S 
PS 

3185 AS=INKEYS: IF AS=CHR5(13) T 
HEN 32104180 RETURN 


3190 IF AS<"O0" “OR AS>"9" THEN 3 

185 

3195 SPS=SPS+AS:GOTO 4182 

3210 SP=VAL (SPSS) 

3220 IF SP<O OR SP>999 THEN 318 

Ú 

3230 NEXT BR 

3240 RETURN 

3000  HGR HCOLOB= 3 

4010 HPLOT 0,0 TO 279,0 TO 279 
1159 TO 0,159 TO 0,0 

3020 G = 10:5SP = 50 

3030 FOR R = | TO 6: HOME 

4040 VTAB 21: PRINT "G= ";G;" 

M/5/5 "*- "VELOCIDADE= ":;5P:." M 

/8”": VTAB 24: PRINT "TECLE <CR> 
PARA DISPARAR "; 

3060 GET AS: IF AS &£ > CGHHS 
(13) THEN 3060 

3070 FORT = O TO 200 STEP .5 
30B0 H = SP * SIN ( ATN (1)) * 
To .6*%GATAT 

3090 X = SP * COS ( ATN (1)) * 
T 

3095 IF H< O THENTÃ= 250: GO 

TO 3125 

4100 pé X > IP THEN AT = 250: 

GOTO 3125 

3105 IF H > 160 THEN POKE 769 
1200: POKE 768,2: CALL 770 

3110 IF H< 160 THEN HPLOT &K 

+ 2,160 - H: POKE 769,H: POKE 7 

68,2: CALL 770 

3115 POKE - 16368,0 

3120 FORD = 1 TO Z0: IF i>PEEK 
(| - 16384) « 128 THEN POKE - 
16368,0: NEXT 

3125 NEXT T 

3130 IF BR > 5 THEN 3230 

3135 POKE - 16368,0 

3140 FOR D = 1 TO 300: TF PEE 

K ( - 16384) > 127 THEN D = 300 
3145 POKE - 16368,0: NEXT 


VTAB 23: CALL - 
INPUT "NOVA ACELE 


3150 HTAB 1: 
958: VTAB 24: 


RACAO (0 TERMINA) ":6 

3160 IF G< 0 OR G > 9999 THEN 
3150 

3170 IF G = 0 THEN BR = 6: GOTO 
3230 

3180 HTAB 1: VTAB 23: CALL - 

958. VTAB 23: INPUT "NOVA VELOC 
IDADE (O TERMINA) ";SP 

3200 TF SP«< O ORSP > 999 THE 

N 3180 

3230 NEXT BR 

3240 RETURN 


Execute o programa e escolha a op- 
ção 3. Após <ENTER> ou <RE- 
TURN > terem sido pressionados, serão 
traçados pontos segundo uma curva que 
começa no canto inferior esquerdo da 
tela e termina em algum lugar em dire- 
ção ao canto inferior direito. Essa é a 
trajetória de um objeto lançado a uma 
velocidade inicial de 50 m/s sob gravi- 
dade G. 


ESTRUTURA DA ROTINA 





A estrutura da rotina é similar às an- 
teriores. O cálculo e o traçado são fei- 
tos em um laço FOR...NEXT (linhas 
3030 a 3230), que permite comparar seis 
trajetórias diferentes, cinco das quais es- 
pecificadas pelo usuário. Um valor O 
provoca o retorno ao menu. Mas é mais 
provável que você queira digitar um no- 
vo conjunto de valores para comparar 
as trajetórias. 

Coloque o valor 5 em G e mantenha 
SP em 50; pressione < ENTER. Des- 
ta vez, o objeto irá mais alto e mais lon- 
ge. Mantenha G em 5 e reduza SP para 
25. Compare os resultados. 

Continue experimentando: modifi- 
que tanto G quanto SP e preste atenção 
aos sons. Estes foram especialmente pla- 
nejados para ajudá-lo a compreender o 
movimento do objeto na tela. Dessa ma- 
neira, sons cada vez mais agudos indi- 
cam um movimento ascendente. A que- 
da, por sua vez, é marcada por sons ca- 
da vez mais graves. 





COMO FUNCIONA 


Lembre-se de que a trajetória do ob- 
jeto é traçada como coordenadas H no 
eixo Y e coordenadas X no eixo X. Es- 
sas duas variáveis são calculadas nas li- 
nhas 3080 e 3090. A única diferença en- 
tre elas é que a coordenada H tem a ve- 
locidade (SP) multiplicada pelo seno do 
ângulo e a coordenada X tem SP multi- 
plicada pelo co-seno do mesmo ângulo 
(45º). Isso explica por que, quando G é 


pequena e SP grande, a trajetória pare- 
ce uma linha diagonal a 45º. 





SENO, CO-SENO, TANGENTE 


Essas funções trigonométricas são ne- 
cessárias para calcular a fração do mo- 
vimento que se aplica a cada uma das 
duas direções. Tais frações, por sua vez, 
são chamadas de componentes horizon- 
tal e vertical do movimento, Se este tem 
uma velocidade inicial de 50 m/s, por 
exemplo, as duas componentes serão 
menores que 50. Somadas, elas dão exa- 
tamente 50 m/s. 

Como você deve estar lembrado, a 
componente vertical é SP*SEN A e a 
horizontal, SP*COS A, onde À é o ân- 
gulo de inclinação do lançamento. 





VISUALIZE O MOVIMENTO 


Para compreender como esses valo- 
res são obtidos, é conveniente dar uma 
olhada em um esquema. O desenho da 
página 768 mostra um projétil inician- 
do seu movimento com velocidade real 
V em um ângulo A com a horizontal. 
As linhas tracejadas, por sua vez, mos- 
tram as componentes da velocidade (Vh 
e Vx) nas duas direções. 

O seno do ângulo A é Vh/V; temos 
assim uma relação que pode ser lida co- 
mo Vh=V*SEN A. Da mesma forma, 
o co-seno de A é Vx/V, de onde inferi- 
mos a equação Vx=V*COS A. 

Seguindo esse padrão, temos 
SP*SEN 45 para a componente vertical 
da velocidade e SP*COS 45 para a com- 
ponente horizontal. 

No programa, isso aparece de um 
modo um pouco diferente. À exceção do 
Spectrum, usa-se a função ATN(1). Es- 
sa função (arco tangente) fornece o ân- 
gulo cuja tangente é 1 (nosso caso): O 
ângulo de 45º. O computador, porém, 
utiliza tal valor em radianos. Por isso, 
recorremos à função — que fornece o 
valor na unidade adequada — e não ao 
valor 45, diretamente. No Spectrum usa- 
se o valor pi/180, que equivale a 1 grau, 
multiplicado por 45. 


COMO MUDAR O ÂNGULO 





Neste ponto, você pode estar queren- 
do saber por que o ângulo foi fixado em 
45º. Na verdade, tanto o ângulo quan- 
to a velocidade inicial podem ser alte- 
rados para mudar a trajetória do projé- 
til. Mais frequentemente, varia-se o ân- 

ulo, deixando a velocidade constante. 
| O que faremos agora: 











COMO É FEITA A SIMULAÇÃO DE 
UM MOVIMENTO 

Todos os programas que simulam 
fenômenos físicos de natureza contí- 
nua, como o movimento de um corpo 
no espaço, utilizam o mesmo tipo de 
modelo matemático: as equações de 
diferenças finitas. Por esse motivo, é 


interessante saber qual o seu significa- | 


do e como funcionam. Assim, seus es- 
forços de programação em muitas 
áreas, inclusive jogos, serão bem mais 
profissionais. 

Uma equação de diferenças finitas 
diz qual é a lei matemática que rege a 
maneira pela qual uma variável muda 
com o tempo. Tomemos como exem- 
plo o movimento de um corpo com ve- 


locidade constante. Suponhamos nes- | 


se caso que a distância percorrida pe- 

lo corpo em um intervalo de tempo bem 

pequeno — que chamaremos de DT — 

é DD. Como consequência, a equação 

que rege DD em função de DT é: 
DD = V*DT, 

onde V é a velocidade do corpo. 

Na realidade, o que acontece na na- 
tureza é um movimento contínuo, ou 
seja, podemos imaginar um DT infini- 
tesimalmente pequeno. Porém, se der- 
mos agora o nome D à distância total 
percorrida pelo corpo, teremos a se- 
guinte equação, que é bem mais útil 
que a primeira: 

D=D+ V*T 

Essa é a forma a ser colocada em 
um programa de computador e se cha- 
ma equação de diferenças finitas. Ela 
é calculada repetidamente, começan- 
do com o valor de D = O. O valor de 

| D é então incrementado a cada inter- 

| valo DT por um “pedacinho” calcula- 

| do pela fórmula V*DT. Esse processo 

| simples corresponde a uma integração 
da distância ao longo do tempo linte- 

| gração é um termo específico da parte 

da matemática chamada cálculo dife- 
rencial e integral). 

Como não é possível trabalhar em 
um computador com uma grandeza in- 
finitamente pequena para DT, usa-se 
um DT pequeno mas finito. 





4000 


CLS 
4010 LET FL=0 
4020 RESTORE : FOR N=0 TO 7: RE 
AD A: POKE USR "A"+N,A: NEXT N 
4040 LET A=70: LET SP=50 
4060 PRINT AT 0,0;" ANGULO=";A;C 


HRS 144;CHRS 32 


RR 4070 INPUT "<ENTER> PARA ATIRAR 











", LINE 18 

4080 FOR T=0 TO 250 STEP .5 
4090 LET H=SP*SIN ((PI/180)*A)* 
T-.5*10*T*T: LET X=50*C0OS ((PI/ 


180) *A)*T 

4100 IF H>=0 THEN PLOT X,H+16: 
SOUND .05,H/4: PAUSE 40: NEXT 
T: GOTO 4110 

4105 LET T=250: NEXT T 

4110 PAUSE 50 

4130 INPUT "NOVO ANGULO (0 SAI) 


“, LINE 18 

4135 IF LEN 15$=0 THEN GOTO 413 
0 
4140 LET A=VAL 15 

4150 IF NOT (LEN 15>0 AND A>=0 
AND A<90) THEN GOTO 4130 

4160 IF A=0 THEN LET FL=] 
4170 IF NOT FL THEN GOTO 4060 
4180 RETURN 

5000 DATA 24,36,36,36,24,0,0,0 


—— 


4000 PCLS 

4020 LINE (0,0)-(255,191),PSET, 

B 

4040 A=70:S8P=50 

4060 CLS:PRINT "ANGULO = ";A;"G 

RAUS" 

4070 PRINT €448,"<ENTER> PARA A 

TIRAR” 

4072 IF INKEYS<>CHAS (13) THEN 4 

072 

4075 SCREEN 1,0:AN=A*ATN(1)/45 

4080 FOR T=0 TO 250 STEP .5 

4090 H=SP*SIN(AN)*T-.5*10*T*T:;X 
-SPXCOS (AN) *T 

4092 IF H<O THEN T=250:GOoToO 410 
0. 

4094 IF X>251 THEN T=250:GOTO 4 
100 ELSE IF H>189 THEN SOUND 25 
0,1:D=25 ELSE PSET(X+2,190-H,2) 
*: SOUND H+10,1:D=35 

4096 IF PEEK(345)=255 AND D>O T 
HEN D=D-1:GOTO 4096 

4100 NEXT 

4110 AS=INKEYS 

4120 IF INKEY93="" THEN 4120 

4130 PRINT €448,"NOVO ANGULO (O 
SAI):";: INPUT A 


4160 IF A<O OR A>=90 THEN 4120 
4170 IF A>O THEN 4060 

4180 RETURN 

R + / À 

Ad. 

4000 SCREEN 2,0,0 

4020 LINE (5,0)-(250,160),15,B 
4040 SP=50:A=70 

4050 OPEN "GRP:” FOR OUTPUT AS 
&l 

4060 LINE (250,175)-(5,161),4,B 


F:PRINT41,"ANGULO =";A;"GRAUS" 
4070 LINE (250,195)-(5,180),4,B 
F:PRINT+A1L,"TECLE <RETURN> PARA 
DISPARAR” 

4072 IF INKEYS<>CHRS (13) THEN 4 
072 

4075 AN=A*ATN(1)/45 

4080 FOR T=0 TO 250 STEP .5 
4090 H=SP*SIN(AN)*T-.5*10AT*T:X 
=SP*COS (AN) *T 
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4092 IF H<0 THEN T=250:GOTO 410 
O 

4094 IF X>245 THEN T=250:GOTO 4 
100 ELSE IF H>159 THEN PLAY"N9O 
L19” ELSE PSET (X+6,160-H), 15:A 
58="N"+STRS (INT (H/2))+"L19”: PLAY 
AS 

4096 FOR I=1l TÔ 100:IF INKEYS < 
>CHRS5 (32) THEN NEXT I 

4100 NEXT T 

4130 [INE (250,19h)-(5,180),4.H 
F:PRINT4&1,"NOVO ANGULO? (0 TERM 
INA):":GS="" 

4132 PRESET (220,180): PRINT&L,G 








e) 
4135 AS=INKEYS:IF AS=CHRS(13) T 
HEN 4150 


4140 IF AS<"0” OR A$S>"9” THEN 4 
135 
4145 GS=GS+AS:GOTO 4132 


4150 
4160 
4170 
4180 


A=VAL (GS) :IF A=0 THEN 4180 
IF A<O OR A>89 THEN 4130 
GOTO 4060 

RETURN 
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| 4095 IF H< 160 THEN HPLOT X m/s e a uma inclinação de 70º (ambos 
LR | + 2,160 - H: POKE 769,H: POKE 7 os valores determinados na linha 4040 





68,2: CALL 770 e usados na linha 4090). 
4000 HGR : HCOLOR= 3 4097 POKE - 16368,0 A rotina funciona como as preceden- 
4020 HPLOT 0,0 TO 279,0 TO 279 4098 FORD = 1 TO20: IF PEEK es exceto pelo fato de que se pode dar 
,159 TO 0,159 To 0,0 ( — 16384) < 128 THEN POKE - entrada a tantos ângulos quantos se de- 
E DR VD Ri: PRINT "AN avo RR sejar (entre 1º e 89º). Assim, toda vez 
GULO =":A:" GRAUS 4130 HTAB 1: UTAD 23: CALL - que essa rotina for usada, a variável A 
4065 UTAB 24: PRINT "TECLE <CR 958: VTAB 23: INPUT "Novo: ANguL da linha 4090 armazenará o ângulo que 
> PARA DISPARAR ": O (0 TERMINA) ";A você escolheu. Desta vez, a rotina é um 
4070 GET AS: IF AS < > cHAS 4160 IF A<OORA>õB9THENA4 laçoinfinito, demodo que só se volta 
(13) THEN 4070 130 ao menu teclando-se O para um ângulo. 
4075 AN = A * ATN (1) / 45 4170 IF A > O THEN GA4060 Usando esta rotina, tente encontrar 
4080 FOR T= 0 TO Z50 STEP .S 4180  RETUBN o ângulo que lhe dá a maior distância 
| 4090 H = SP * SIN (AN) *T-. de percurso nas direções vertical e hori- 
S*1]0*T*aT:x=SPx* costa P ri ae 
O E | | zontal. Será fácil descobri-lo: € O nosso 
4092 IF H<O THENT=jãZ250:G0 A MAIOR DISTÂNCIA conhecido angulo de 45º. 
TO 4100 ns dá Esse ângulo, porém, permite obter a 
4093 TE XS> 275 THENT= 280: maior distância apenas no caso em que 
GOTO 4100 Ao executar a quarta opção, você po- os pontos de partida e de chegada estão 
4094 IF H > 160 THEN POKE 769  derá ver a trajetória de um objeto lan- no mesmo nível, pois é preciso levar em 
200: POKE 768,2: CALL 770 çado com uma velocidade inicial de 50 conta a resistência do ar. 
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ACASO E 
PROBABILIDADE 





A força de um computador está na 
sua capacidade de obedecer instruções 
repetidamente, com precisão e velocida- 
de. Entretanto, quando comparado aos 
processos instantâneos de raciocínio do 
ser humano, o computador pode pare- 
cer lento e obsoleto. A mente humana 
é boa principalmente no que diz respei- 
to a julgar e comparar parâmetros, tais 
como distância, velocidade e intensida- 
de de luz. 

Mas até o mais sofisticado dos órgãos 
comete erros ao calcular o resultado de 
eventos. Ainda assim, é essencial, por 
exemplo, poder dizer que, “para fins de 
seguro de vida, uma pessoa vive de 65 
a 70) anos”, ou que “'não é provável que 
a terra volte a tremer no México em 
1986". Tais afirmações são muito co- 
muns no nosso dia-a-dia. Além disso, 
são importantes para fins sociais, co- 
merciais e científicos. Assim, quando 
empregamos expressões como prós e 
contras, estimativa, dúvida, expectativa, 
estamos fazendo cálculos mentais de 
probabilidade. 


A PROBABILIDADE EXPLICADA 





Probabilidade é uma ferramenta 
científica para se medir o acaso. Usada 
para calcular o provável resultado de um 
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evento, ela se baseia na existência de um 
número mensurável de resultados, como 
num jogo de futebol, ou num lançamen- 
to de dados, ou de moedas, num jogo 
de cartas etc. Naturalmente, temos que 
poder medir ou quantificar os resulta- 
dos; por isso, eventos como corridas de 
cavalo ou jogos de futebol são assuntos 
dificeis para o cálculo de probabilida- 
des. Quando dizemos “espero vencer”, 
na verdade, estamos afirmando ser alta 
a probabilidade de conseguir a vitória 
e não apenas nosso desejo de triunfar. 

A maioria das pessoas apóia-se na in- 
tuição como principal ferramenta no 
cálculo do acaso (ou probabilidade). En- 
tretanto, se quisermos examinar os efei- 
tos possíveis e, dentre eles, aqueles que 
são mais prováveis, num problema de 
probabilidade, podemos chegar a um re- 
sultado bastante preciso. Não é dificil 
aprender a prever os resultados mais 
prováveis, € mesmo que não possamos 
garanti-los, a possibilidade de acerto é 
bem maior que a de uma estimativa fei- 
ta a esmo. 


PROBABILIDADE E COMPUTAÇÃO 


Qual será então a relação entre pro- 
babilidade e computação? Embora o ti- 


Um dos pioneiros da matemática modema, 
o francês Blaise Pascal foi 

o criador de um triângulo de números 
extremamente importante 


para o cálculo das probabilidades. 


po de probabilidade descrito até agora 
seja muito vago e dependente de estima- 
tivas, é possível deduzir fórmulas ma- 
temáticas para determinados aconteci- 
mentos que nos permitam prever os re- 
sultados mais prováveis com um certo 
grau de precisão, 

Existem duas maneiras pelas quais 0 
computador pode ser útil aqui. A pri- 
meira delas consiste em programá-lo pa- 
ra simular o próprio evento — é bem 
mais cômodo fazer com que a máquina 
jogue um dado 2000 vezes e depois ana- 
lise o resultado do que termos nós mes- 
mos que fazê-lo. A segunda maneira, 
entretanto, só funciona quando conhe- 
cemos as fórmulas para um certo even- 
to; nesse caso, podemos fazer com que 
o computador calcule o resultado. 

Visto por alguns como um exercício 
puramente teórico, esse tipo de cálculo 
serve de base para muitas aplicações 
úteis do computador. Uma dessas apli- 
cações consiste nos jogos onde, por 
exemplo, os pontos ganhos dependem 
da probabilidade de certos resultados. 
Do mesmo modo, poderíamos escrever 
um programa que estabelecesse as pro- 
babilidades de chover num determina- 
do dia. Por enquanto, porém, vamos 
concentrar nossa atenção apenas na teo- 
ria. Mais adiante, trataremos da cons- 
trução de alguns desses aplicativos. 

















[2 a e a o aÃ o DI 2 


+ Moça rr os 


= o cod + 














COMO MEDIR A PROBABILIDADE 


A teoria de medição da probabilida- 
de requer que sejam conhecidos os re- 
sultados possíveis de um evento, e que 
eles ocorram com uma certa frequência, 
passível de ser medida. A probabilida- 
de de acontecer um certo evento é o nuú- 
mero de vezes com que ele se repete (fre- 
quência), comparado com o total de to- 
dos os resultados possíveis. Ou, em ou- 
tras palavras, é a frequência expressa em 
fração do conjunto dos resultados pos- 
siveis. 

Devemos notar que, se um aconteci- 
meffto se repetir toda vez que ocorrerem 
certas circunstâncias, então sua proba- 
bilidade será igual a 1. Isso porque sua 
frequência será igual ao número de re- 
sultados possíveis, e a divisão de dois 
números iguais resulta em 1. Temos, en- 
tão, que 1 é a maior probabilidade pos- 
sível, e que a soma das frações de pro- 


babilidade de todos os resultados pos-. 


síveis resultará invariavelmente nesse 
número. 

Um dos métodos mais simples e an» 
tigos de visualizar a probabilidade é lan- 
car uma moeda e prever o resultado, ou 
seja, que face terá ao cair: cara ou co- 
roa. Como a moeda tem só dois lados, 
podemos inferir que, qualquer que fos- 
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e O QUE É PROBABILIDADE 
O E COMO MEDHA 
s PROBABILIDADE, 


FREQUÊNCIA E ACASO 


EE PROGRAMA LANÇADOR DE MOEDAS 


se o número de lançamentos, deveria- 
mos obter cara, metade das vezes, e co- 
roa a outra metade, ignorando a remo- 
ta possibilidade de a moeda cair em pé. 
Para ilustrar melhor esse método, digi- 
te e rode o primeiro programa: 


io 


LO COLOR 1,3,3:CLS 

20 INPUT"QUAL O TESTE (1-4) 
30 CLS:IF X<1l OR X>24 THEN 10 
40 ON X GOTO 70,70,180,460 


ad + 


DO: REM. sa... probabilidade 
60 REM... lançamento de moedas 
70 B=0:T=0 


80 LOCATES, 3: PRINTºPRESSIONE A 
TECLA DE ESPAÇO” 

B5 LOCATE9,4:PRINT"PARA LANÇAR 
A MOEDA” 

90 LOCATE13,7:PRINT"CARAS: 
PRINTTAB(13)"COROAS: 0" 
100, AS=INKEYS: IFAS=CHR$(13) THE 
N SCREENO: RUN 

105 IFAS<>”" "THEN 100 

110 IF Xº2 THEN FORN=1 TO 100 
120 IFINT(RND(1)*2Z)+1=1 THEN H= 
H+1 ELSE T=T+1 

130 LOCATE20,7: PRINTH: LOCATEZ2O, 
B: PRINTT 

140 IF X=1 THEN 100 

160 NEXTN:GOTO 100 


DU”: 





PROBABILIDADE DE 
VÁRIOS RESULTADOS 
TRIÂNGULO DE PASCAL 


DISTRIBUIÇÃO DE FREQUÊNCIA 


x 
= 

. 
ES PREVEJA O RESULTADO 


20 INPUT 
"x 

30 HOME 
EN 5 

40 ON X GOTO 70,70,180,460 

RU: DER ao as bis mica PROBABILIDADE 

60 REM ..LANCAMENTO DE MOEDAS 
70 H=0T= 0 

BO PRINT "PRESSIONE A TECLA DE 
ESPACO” 

85 PRINT * 

EDA” 

90 VTAB (4): PRINT "CARAS: 0º 
PRINT "COROAS: 0º 
100 GET AS: IF AS = 

THEN TEXT : RUN 
105 IF AS < > * * THEN 100 
110 IF X = 2 THEN FORN=17T 
o 100 
120 IF INT 

= 1 THEN H = 

125 T = T+] 
130 VTAB (4): HTAB (9): 
HH: HTIAB (9): PRINT GT 
140 IF X = 1 THEN 100 
160 NEXT N: GOTO 100 


10 PMODE 3,1:CLS 
20 INPUT"QUAL O TESTE (1-4) ";X 


30 CLS:IF X<l OR X>4 THEN 20 
40 ON X GOTO 70,70,180,460 


"QUAL O TESTE (1-4) ? 


IFX<I10OBX>4 TH 


PARA LANCAR A MO 


CHRS (13) 


( BND (1) * 2) +1 
H + 1: GOTO 130 


PRINT 


50 REM .... PROBABILIDADE 
60 REM .... LANCAMENTO DA MOEDA 
70 H=0:T=0 
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BO PRINT 665,"PRESSIONE A BARRA 
DE ESPACOS PARA LANCAR A MO 
EDA” 

90 PRINT €288,"CARAS - 0": PRINT 
"COROAS- 0" 

100 AS=INKEYS:IF AS<>" " THEN 1 
00 

110 IF X=2 THEN FOR N=1 TO 100 

120 IF BND(2)=1 THEN H=H+1:PRIN 
T 6204,"CA”:PRINT €295,H;, ELSE T 
=T+1: PRINT €207,"CO”:PRINT €327 
Tt 
130 
HEN 
140 PRINT €204,"” 

150 IF X=1 THEN FOR D=0 TO 400: 
NEXT:GOTO 120 ELSE NEXT 

160 AS=INKEYS: IF AS<>CHRS(13) T 
BEN 160 ELSE END 


IF X=1 AND PEEK(345)<>247 T 
130 


5 BORDER 7: PAPER 7: INK 9: 
CLS 

10 DIM n(4) 

20 RESTORE 9000: FOR n=1 TO 4 
READ n(n): NEXT n 


30 INPUT "Qual o teste (1 a 4 
jJ?”",x: CLS 
40 BORDER x: GOTO n(x) 
50 REM Probabilidade 
60 REM Lancamento de Moeda 
70 LET h=0D: LET E=0 
BO PRINT AT 2,1;"Pressione <5 
PACE> para lancar” 
90 PRINT AT 20,10;"CARAS - 0" 
“AT 21,10;"COROAS- 0" 
100 IF INKEY5S<>CHEAS 32 THEN 
GOTO 100 
110 IF x=2 THEN 
LOO 
120 IF INT (AND*2)=1 THEN LET 
h=h+1: PRINT AT 10,15;"CA”";AT 
20,18;h: GOTO 130 
125 LET t=t+1l: PRINT AT 12,165; 
"CO";AT 21,18;t 
130 IF x=1 THEN 
CHRS 32 THEN 


FOR n=1 TO 


IF INKEYS<> 
GOTO 130 


140 PRINT AT 10,15;” ";AT 12, 
1 5 : vê a 
150 IF x=1 THEN FOR m=1 TO 


100: NEXT m: GOTO 120 
155 NEXT n: STOP 
9000 DATA 70,70,170,460 


Este programa será incrementado mais 
adiante. Ao rodá-lo, seremos perguntados 
a respeito do número do teste que dese- 
jamos fazer. Esse primeiro programa con- 
tém somente os dois testes iniciais. Digi- 
te | e estaremos prontos para lançar a 
moeda — usando a tecla de espaço. O 
ponto crucial do programa está na linha 
120, que gera aleatoriamente valores 1 
(para cara) e O (para coroa), além de fa- 
zer a contagem do número de caras e co- 
roas obtidas). A linha 150 no programa 
do Spectrum e também no do TRS-Color 
provoca uma pausa entre as jogadas. 

Poucos lançamentos, provavelmente, 
fornecerão valores diferentes para cara 
e coroa, representados no programa pe- 
las variáveis H e T, respectivamente. 
Quanto maior o número de jogadas, 
mais próximas uma da outra serão as 
frequências de H e T — tendendo, cada 
uma, à metade do número total de lan- 
camentos (ou 50%). Para demonstrar 
esse efeito, rode o programa novamen- 
te, mas, desta vez, selecione o teste 2. 
Ao ser pressionada a tecla de espaço, um 
laço preparado pela linha 110 lançará a 
moeda cem vezes. Note que as duas va- 
riáveis, He T, estão bem próximas de 
50. Mude o 100 da linha 110 para 1000, 
rode o programa e observe como cara 
e coroa tendem para 500. 

Pode acontecer que, num teste de 
poucas jogadas, todas elas sejam coroa. 
Apesar disso, a probabilidade de se ob- 
ter coroa será sempre igual a 1/2 (meio). 
Convém não nos esquecermos disso, 
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principalmente quando estivermos tra- 
balhando com mais de um evento. Mui- 
tos acreditam que, se dez lançamentos 
seguidos de uma moeda derem cara, à 
possibilidade de se obter coroa na 
décima-primeira jogada será maior do 
que antes. Isso não é verdade; a possi- 
bilidade de dar coroa ainda será de 50%. 
Os eventos passados não têm influência 
sobre os lançamentos seguintes. No en- 
tanto, se lançarmos onze moedas ao 
mesmo tempo, a chance de se obter on- 
ze coroas será menor que a de obter dez 
coroas e uma cara. A maior chance é de 
que o número de coroas seja próximo 
ao número de caras. 





MÚLTIPLOS EVENTOS 


Quando há vários eventos, algumas 
informações adicionais são necessárias 
para se poder prever a probabilidade de 
cada resultado. Uma informação essen- 
cial é o número total de resultados pos- 
síveis. Por exemplo, se lançarmos duas 
vezes uma moeda, teremos três resulta- 
dos possíveis: duas caras, uma cara € 
uma coroa, e duas coroas. À primeira 
vista, pareceria que cada resultado po- 
de ocorrer 1/3 das vezes. Na verdade, as 
probabilidades são duas caras acontece- 
rem 1/4 (25%) das vezes; duas coroas, 
1/4; e uma cara e uma coroa, 1/2. Para 
entender essa terceira probabilidade, pre- 
cisamos de outra informação essencial, 
que dê conta de quantas vezes cada re- 
sultado ocorre. Uma cara e uma coroa 
acontecem duas vezes, porque existem 
duas maneiras de se obter tal resultado: 
uma cara e depois uma coroa, ou uma 
coroa e depois uma cara. Conseguimos 
assim um total de quatro resultados, três 
dos quais diferentes entre si. 

Na prática, costuma-se usar dois re- 
cursos matemáticos que nos poupam 0 
trabalho de calcular a ocorrência de ca- 
da resultado: o teorema binomial e o 
triângulo de Pascal. Binomial significa 
“dois termos”. Se um evento tem só dois 
resultados possíveis e conhecemos a pro- 
babilidade de cada um deles, podemos 
usar o teorema binomial para calcular 
tais probabilidades. O teorema binomial 
nos diz o que devemos esperar de testes 
repetidos de um evento com dois resul- 
tados possíveis. Chamaremos P à pro- 
babilidade de um dos resultados e Q à 
do outro (lembremos que a soma de P 
e Q deve ser igual a 1). Denominaremos 
N o número de eventos. 

No exemplo do lançamento de uma 
moeda, P (digamos, a possibilidade de 
dar cara) e Q (coroa) serão iguais a 1/2 
para cada jogada. De acordo com o teo- 
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rema binomial, a chance de que qualquer 
evento aconteça duas vezes seguidas é a 
probabilidade de que ocorra uma vez 
multiplicada por ela mesma. Em geral, 
a regra consiste na probabilidade do even- 
to elevado à potência N. Portanto, para 
o caso de duas caras seguidas, PIN = 
1/2x 1/2 = 1/4. Existe então uma chan- 
ce em quatro de que obtenhamos duas 
caras seguidas. Do mesmo modo, a pos- 
sibilidade de se conseguir cinco coroas 
sucessivas é PIN=(1/2 1 5), ou 1/32, 

Como veremos mais tarde, podemos 
usar esse método para calcular a proba- 
bilidade em qualquer caso onde existam 
somente dois resultados possiveis 
(sim/não ou cara/coroa, por exemplo). 
Mas qual seria a chance de se obterem 
três caras e duas coroas em cinco lança- 
mentos? Para responder a essa pergun- 
ta, precisamos de um modelo mais com- 
plexo, Muito útil neste caso é o triân- 
gulo de números, desenvolvido pelo ma- 
temático, físico e filósofo francês Blai- 
se Pascal. Esse triângulo fornece todos 
os resultados possíveis de um evento bi- 
nomial, e pode ser entendido como al- 
gumas fileiras de números. As primei- 
ras sete fileiras são: 


Fileira 0) | 

Fileira 1) | | 
Fileira 2) | 2 | 
Fileira 3) l 3 3 | 


Fileira 4) 1 4 6 4 1 
Fileira 5) 1 5 10 LO E 
Fileira 6)1 6 15 20 IS 6 1 


Para construir um triângulo como es- 
se, escreva primeiramente as fileiras O e 
|, as mais fáceis de serem lembradas. A 
fileira 2 começa com um 1 à esquerda 
da fileira | e termina com um 1 à direi- 
ta. O número do meio é obtido pela so- 
ma dos dois algarismos imediatamente 
acima dele (1 + 1). Da mesma maneira, 
a fileira 6 é obtida somando-se 5+ 1, 
5+10,10+10, 10+5e 5+1. Se conti- 
nuarmos com esse processo, teremos um 
triângulo com um número de fileiras ca- 
da vez maior, o que seria dificil de con- 
seguir com a utilização de qualquer ou- 
tro método. 

O triângulo de Pascal nos dá todas 
as informações de que precisamos quan- 
do lançamos diversas moedas (ou uma 
moeda várias vezes). O número de moe- 
das (ou de lançamentos) estabelece o nú- 
mero da fileira que devemos olhar; o nú- 
mero de itens na fileira determina o de 
resultados diferentes. Por exemplo, exis- 
tem duas possibilidades para uma moe- 
da (1 e 1 na fileira 1) e sete para seis 
moedas (1, 6, 15, 20, 15, 6, 1 na fileira 
6). A soma dos itens na fileira nos dá 
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o número total de resultados (2 para 
uma moeda, 4 para duas moedas, e as- 
sim por diante). 

Cada número na fileira define a pro- 
babilidade. Por exemplo, na fileira 2, 0 
primeiro número (1) é a probabilidade 
para duas caras; o segundo (2), a pro- 
babilidade para uma cara e uma coroa; 
o terceiro (1), para duas coroas. Eviden- 
temente, a frequência tem que ser divi- 
dida pelo número total de resultados (4, 
neste caso) para se obter a probabilida- 
de. Note que o resultado da adição dos 
números em cada fileira é sempre uma 
potência de dois (1, 2, 4, 8, 16). Isso 
acontece porque, para qualquer um dos 
eventos, há só duas opções: cara ou 
coroa. 

A praticidade desse método é posta 
à prova quando queremos, por exemplo, 
calcular as probabilidades de lançamen- 
to de trinta moedas; a construção de um 
triângulo com trinta fileiras seria muito 
trabalhosa, além de tomar muito espa- 
ço. Existe, porém, um método gráfico 


LELLO 


E 


ie a E E EEE - e Ç a E A 
is ; a e As 


ao qual podemos recorrer em tais situa- 
ções, e é aqui que entra a ajuda do com- 
putador. 


CURVAS DE DISTRIBUIÇÃO 


Onde existirem muitos resultados 
com probabilidades não muito claras, 
conseguiremos quase sempre calcular o 
que precisamos, plotando (ou seja, mar- 
cando num gráfico) uma curva de dis- 
tribuição, definida pela frequência dos 
resultados que conhecemos. Como em 
qualquer método gráfico, as Iinforma- 
ções nele contidas são percebidas logo 
de início. Se, por exemplo, uma moeda 
for lançada trinta vezes (O que seria O 
mesmo que lançar trinta moedas de uma 
só vez), podemos traçar um gráfico com 
o número de caras obtidas. Digite a pró- 
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xima seção de programa, mas não apa- 200 FOR Y=0 TO H*6 STEP 2 
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gue a anterior: 210 PSET (x, 1B8B-Y,2) 
220 NEXT Y,X 170 REM Grafico 
mad; 230 GOTO 160 175 PLOT 0,0: DRAW 180,0 
Im 610 H=0:T=0 180 FOR x=4 TO 160 STEP 4 
aut 650 FOR T8=1 TO 30 190 LET qgm=0: GOSUB 610 
170 REM...... picos randômicos 660 IF RND(2)-1 THEN H=H+1 ELSE 200 FOR n=0 TO h: PLOT x,n*6: 
180 SCREEN2:FORX=5 TO 255 STEP Te T+1 NEXT n 
4 670 NEXT | 
190 GM=0:GOSUB 610 680 RETURN Fá pesto o 
200 FORY=0 TO HX6 STEP 2 CLO BEM Eancadênto 
210 PSET (x,188-Y),1l 620 LET h=0 E LET t=0 
220 NEXT Y,X 630 PRINT AT 4,22;"CARAS -";h; 


230 IFINKEY$=""THEN230 ELSE RUN 
610 H=0:T=0 

650 FORS=1 TO 30 

660 IFINT(RND(1)*2)+1=1 THEN H= 
H+1 ELSE T=T+1 


AT 6,22;"COROAS-";t 

640 IF qgm<>0 THEN PRINT ATO, 
0; "JOGADAS-";qgm;AT 21,3;"CARAS 
EM 30 LANCAMENTOS:" 

650 FOR s=1 TO 30 


pato Tas 660 IF RND>=.5 THEN LET h=h+] 

O RE PRINT AT 2,24;" CA";AT 4,29 

—Arm h;” "+ GOTO 670 

E T£OR 665 LET t=t+l: PRINT AT 2,24;" 
; CO ":.AT 6,29;t;” * 

10 DEM css: PICOS ALEATÓRIOS a RR 


180 HGR : HCOLOR= 3: FOR X = 4 

TO 275 STEP 10 

190 GM = O: GOSUB 610 

200 FOR N= 0 TO H: HPLOT X,16 

O - (N * 6): NEXT N a 
220 NEXT X ER 


680 RETURN 


Ao rodar o programa, desta vez, se- 
lecione o teste 3. Devemos ver na tela 
um gráfico com uma série de pontos 
chegando a vários picos. Esta é uma das 





230 GET AS: IF AS = "" THEN 23 a 

0 giras muitas formas possíveis nesse tipo de 
235 TEXT : RUN EVA análise. Os picos são os números de ca- 
610 REM ..... LANCAMENTO er ras em cada trinta lançamentos ao lon- 
620 H = O:T = 0 POR go do eixo Y, espaçados igualmente ao 
630 HOME : VTAB (22): PRINT CC Dc longo do eixo X. Existem mais picos al- 
ARAS: “: PRINT “COROAS: | RR pad tos do que baixos. A razão disso é que 


640 IF GM < > O THEN VTAB (2 
2): HTAB (31): PRINT "JOGO: ";G 
M: HTAB (17): PRINT "CARAS EM 3 
O LANCAMENTOS” 


a possibilidade de se obter cerca de quin- 
ze (ou de doze a dezessete) caras é mui- 
to maior que a de se obter um número 
650 FORS=1TO3o menor ou maior. Isso também pode ser 
660 IF JINT ( BND (1) * 2) +11 observado no triângulo de Pascal, onde 
= | THEN H = H+ 1: GOTO 668 | os valores mais altos se encontram na re- 
665 T=T+1 | gião central. 
668 VUTAB (22): HTAB (10): PRIN A linha 180 gera um laço para espa- 
T ;H: HTAB (10): PRINT ;T car os pontos ao longo do eixo X. A va- 
670 NEXT S riável GM (número de jogadas) é zera- 
680 RETURN EE da na linha 190 e uma rotina (linhas 610 
—— | a 680) é chamada para executar cada ba- 





170 REM .... GRAFICO 

180 PCLS4:SCREEN 1,0:FOR X=0 TO 
255 STEP 4 

190 GM=0:GOSUB 610 


















teria de trinta lançamentos. Essa rotina 
usa os elementos do segundo teste, mas 
lança a moeda “'eletrônica”” trinta vezes 
e não cem. Com exceção do TRS- 
COLOR e do MSX, ao rodarmos esse 
teste, notaremos o placar para cara € co- 
roa que aparecerá na tela. Uma vez atin- 
gidos os trinta lançamentos, o número 
de caras que foi acumulado na rotina so- 
frerá um ajuste de escala na linha 200 
e será plotado na coordenada Y pela li- 
nha 210 (linha 200, no Spectrum e no 
Apple). 

Para tirar o máximo proveito de uma 
análise desse tipo, precisamos rearran- 
jar as informações, de modo que obte- 
nhamos uma das curvas mais conheci- 
das no meio estatístico: a distribuição 
normal. Digite mais estas linhas para 
obtermos tal curva: 





na 


450 REM...distribuição normal 
460 DIM G(30) 

470 CLS: SCREEN2Z:LINE(6,0)-(6,19 
1), 15:LINE-(255,191),15 

480 GOSUB 560 

485 AS=INKEYS:IFAS€>" "THEN 485 
560 DEF FNN(X)=1/(4.4429*2.718" 
((X*X)/2)) 


570 DRAW"BM?7,190":FORX=2 TO 255 
STEP2 
580 LINE-(X,191-640*FNN((X-127) 
/24)).1 


590 NEXT:RETURN 


Cato 


450 REM ..DISTRIB NORMAL 

460 DIM G(30): HGR HCOLOR= 3 
470 HPLOT 0,0 TO 0,159: HPLOT 
TO 279,159 

480 GOSUB 560 

485 GET AS: IF AS < >" * TRE 

N 485 

490 END 

560 REM ...GRAFICO 

565 DEF FNN(X) = 1 / (4.4429 
* 2.718 CC (XE RM / 29) 

570 FOR X = 1 TO 280 STEP 2 
580 HPLOT X,158B - 660 * EN N( 
(X - 140) / 24) 

590 NEXT X: RETURN 

450 REM .... DISTR.NORMAL 


460 DIM G(30) 
470 PCLS:SCREEN 1,0:LINE(O,0)-( 
0,191), PSET:LINE-(255,191),PSET 
480 GOSUB 560 


485 AS=INKEYS:IF AS<>" " THEN 4 
85 

560 DEFFND(X)=1/(4.4429*2.718"( 
(X*X) /2)) 


570 COLOR 2, 3:DRAW"BMZ2, 190": FOR 
X=2 TO 255 STEP 2 

580 LINE-(X,191-640*FND((X-127) 
/24)) .PSET 

590 NEXT:RETURN 


450 REM Distr .Norma]l 
460 DIM 9(30) 
470 PLOT 4,150: 
DRAW 245,0 

480 GOSUB 560 
485 IF INKEYS<>CHAS 32 THEN 
GOTO 485 

560 REM Graf. 
570 PLOT 4,10: 
STEP 20 

SAO DRAW 4,600*FN n(ABS 
600)/140))+10-PEEK 23678 
590 NEXT x: RETURN 

600 DEF EN n(x)=1/(PI*1.4142* 
Z LB" ((X 2)/EZ)) 


DRAW 0,-140: 


FOR x=0 TO 1200 


( (x- 


Desta vez, rode o programa e selecio- 
ne o teste 4, que é o de uma curva de 
distribuição do tipo normal. A linha 460 
dimensiona uma matriz que será usada 
posteriormente na contagem das caras 
obtidas. 

A linha 470 desenha os eixos das 
coordenadas X e Y e a linha 480 chama 
a rotina que desenha a curva, Essa roti- 
na usa uma função matemática (linha 
580) para desenhar a curva, O que ex- 
plica a forma “perfeita” desta última. 
A função é definida pelas linhas 560 


(MSX e TRS-Color), 565 (Apple e 
TK-2000) e 600 (Spectrum). Por enquan- 
to, porém, não aperte nenhuma tecla, 
pois a rotina está incompleta. Aguarde 
o desenvolvimento do programa. 

Quando usamos informações reais, 
torna-se difícil plotar uma curva conti- 
nua. Isso já era de se esperar, pois esta- 
mos lidando com probabilidades e não 
com certezas. A probabilidade de um re- 
sultado, tal como o de chover na Índia 
na época das monções, pode ser alta; 
mas, no caso do exemplo, têm sido re- 
gistrados períodos em que a seca toma 
o lugar das chuvas. 

O próximo teste ilustra muito bem es- 
se ponto. Ele repete várias vezes OS €x- 
perimentos anteriores das moedas e co- 
loca no gráfico (plota) os resultados ob- 
tidos. Digite então a segunda parte do 
teste 4: 


ny 


490 
500 
510 
320 


FOR GM=1 TO 500 

GOSUB 610 

G (H) =G(H)+1 

PSET (H*48+7,192-G(H)*2),1 
530 NEXT 

540 GOTO 230 


Di 


490 FOR GM = 
500 GOSUB 610 
510 G(H) = G(H) + 1 

520 HPLOT 20 + 8 * H,160 - G(H 
j*a 
530 
540 


1 TO 200 


NEXT GM 
GoTo 230 














FOR GM=1 TO 500 

GOSUB 610 

G(H) =G(H)+1 

PSET (H*8+7,192-6G(H)*2,3) 
530 NEXT 


540 GOTO 160 


FOR qg=1 TO 200: 
GOSUB 610 

LET q(h)=g(h)+1 
PLOT 8+8*h,10+4*g (h) 
PRINT AT 21,27;h;”" ” 
NEXT q 

STOP 


LET qm=q 


510 
520 
330 
540 
550 


Agora, rode novamente o quarto tes- 
te. Quando a curva ideal tiver sido de- 
senhada, pressione a tecla de espaço pa- 
ra iniciar o lançamento. Aparecerá en- 
tão uma série de pontos “crescendo” 
para preencher o espaço compreendido 
pela curva. Quando o teste estiver com- 
pletado, quinhentos pontos (duzentos 
no Spectrum e no Apple) terão sido co- 
locados no gráfico (especificados na li- 
nha 490). Em alguns micros, tal como 
no Spectrum, o tempo de execução des- 
se teste é de alguns minutos. Para 
acelerá-lo, costuma-se inserir desvios 
(GOTO) em lugares apropriados ao lon- 
go do programa, mas na maioria das ve- 
zes isso traz alteração no funcionamen- 
to dos outros testes. 

Esta seção do programa chama a ro- 
tina (linha 500) que lança a moeda trin- 
ta vezes (no Apple e no Spectrum, os 
lançamentos são mostrados na tela, co- 
mo no terceiro teste). Cada bateria de 
trinta lançamentos forma um jogo, e po- 
de resultar em certo número de caras en- 
tre O e 30. Portanto, na matriz da linha 
460, H pode variar de O a 30. Se anali- 
sarmos pela óptica da lei das probabili- 
dades, veremos que muito dificilmente 
H assumiria valor O ou valor 30 numa 
bateria de trinta lançamentos. Uma si- 
tuação assim é conhecida como ““ocor- 
rência rara”, justamente pela maneira 
com que os números aleatórios são ge- 
rados. Na verdade, números extrema- 
mente pequenos ou extremamente gran- 
des de caras em lançamentos como esse 
não acontecem com fregiiência. Sua 
ocorrência é possível, mas a probabili- 
dade é muito baixa. 

A linha 510 faz a contagem do resul- 
tado de cada jogo por intermédio de 
uma matriz. Por exemplo, toda vez que 
o resultado de um determinado jogo for 
onze caras, o elemento de matriz G(11) 
será incrementado de 1. Da mesma ma- 
neira, toda vez que o resultado for quin- 
ze caras, G(15) será também incremen- 
tado de 1. Inicialmente, todos os ele- 


mentos da matriz são iguais a zero. 

Após cada jogada, a linha 520 altera 
a escala do valor de H (número de ca- 
ras em trinta lançamentos), a fim de 
compatibilizá-lo com os eixos X e Y. A 
próxima vez que ocorrer o mesmo resul- 
tado, um ponto será plotado na mesma 
coordenada X, mas uma unidade acima 
na coordenada Y. 

A linha 530 faz a contagem do H em 
cada jogada, verificando também o nú- 
mero de jogadas. 





COMO USAR A CURVA 


Rode algumas vezes o teste 4 para ter 
uma idéia de como variam os pontos sob 
a curva; depois, rode-o com menores va- 
lores finais para GM na linha 490. Mes- 
mo sem a curva ideal, seremos logo ca- 
pazes de imaginar uma curva idealiza- 
da passando pelos picos. Na prática, o 
inverso desse processo imaginário é ex- 
tremamente importante, pois quando 
conhecemos o perfil de uma curva po- 
demos fazer a previsão do resultado de 
testes futuros. 

O valor de H no pico central tem um 
interesse especial, Ele é a média dos 31 
possíveis valores ao longo do eixo X 
(neste caso, 15). A média identifica o pi- 
co da curva, e constitui também o valor 
mais provável; sozinha, porém, ela não 
é muito informativa. Embora possamos 
dizer que 15 seja o resultado mais pro- 
vável, 14 e 16 são quase tão prováveis 
quanto ele. Existe uma faixa de valores 
comuns em torno do pico, e é importan- 
te conhecer a largura desta faixa. A mé- 
dia é usada na especificação de um ou- 
tro parâmetro estatístico importante — 
o desvio padrão —, que é a medida da 
largura da faixa de pontos comuns. A 
fórmula para o desvio padrão é relati- 
vamente complicada. Uma vez calcula- 
do esse parâmetro, podemos atribuir 
uma probabilidade para qualquer um 
dos pontos na curva. 

O desvio padrão mede o quanto os 
valores variam nos dois lados da média. 
Por exemplo, uma seção de curva com 
desvio padrão de 1,96 em cada lado da 
média englobará 95% dos resultados. Se 
aumentarmos o desvio padrão para 
2,58, a curva passará a conter 99% dos 
resultados. 

Os pacotes comerciais de software es- 
tatístico calculam o desvio padrão com 
grande facilidade e rapidez. 


SEIS RESULTADOS POSSÍVEIS 





Existem muitos casos de eventos on- 
de temos mais do que dois resultados 





possíveis. Em tais casos, calcular a chan- 
ce de algum evento não é tão simples co- 
mo olhar uma fileira do triângulo de 
Pascal. 

Por exemplo, quando jogamos um 
dado, podemos conseguir um entre seis 
resultados. Se o dado não for viciado, 
todos os resultados são equiprováveis, 
ou seja, têm a mesma possibilidade de 
vir a acontecer. 

Os resultados para o lançamento de 
dois dados podem ser calculados por in- 
termédio da construção de uma tabela; 
mas, quanto mais resultados tivermos, 
mais complicado ficará o método que te- 
remos de seguir. 

Aqui está uma tabela com todos os 
resultados possíveis no lançamento de 
um par de dados: 


Valor do primeiro dado 


[2 3I 1 EA 

Valordo | 234567 
semudo 2 34.5 6 78 
dado FA Se FT Bs 
4567 8 9%) 
4678 9W%H 

6-7 :9HAR 


Como vemos na tabela, existem 36 
maneiras diferentes de os dados cairem 
(seis linhas vezes seis colunas), embora 
haja somente onze resultados diferentes. 
A tabela apresenta várias outras infor- 
mações. Existe uma possibilidade em 36 
de obtermos os pontos mínimo e máxi- 
mo (2 ou 12 aparecem somente uma vez 
na tabela); em contrapartida, há seis 
possibilidades em 36 (1/6) de obtermos 
7 como resultado. Existe também uma 
chance em 36 de jogarmos repetido. Es- 
sa chance é mostrada na diagonal que 
vai de 2 (duas vezes o número 1) até 12 
(dois 6). 

Combinando o teorema binomial 
com essa tabela, podemos calcular as 
probabilidades para muitos jogos. Um 
bom exemplo de evento de múltiplo lan- 
camento de dados é o jogo Monopólio, 
onde o jogador, caso esteja na “'ca- 
deia””, tem direito a três lances para ten- 
tar conseguir uma dupla (dois dados 
iguais). Intuitivamente, pode parecer 
que ele conta com 50/50 de possibilida- 
des de sair da ''cadeia”” (três jogadas, 
cada uma com 1/6 de chance), mas isso 
não é verdade. Pela tabela, podemos ve- 
rificar que a chance de o jogador não 
conseguir uma dupla é de 30/36 (5/6) 
para cada jogada. Usando o teorema bi- 
nomial, perceberemos facilmente que a 
chance de ele não conseguir uma dupla 
três vezes seguidas é 5/6 elevado à po- 
tência 3, ou 125/216. Isso equivale, 
aproximadamente, a 58% de possibili- 
dades de fracasso. 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 
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IHRanananaNO PROXIMO NUMEROEENERHI! 


PROGRAMAÇÃO BASIC 


Atinja as estrelas, executando um programa que simula a 
trajetória de um corpo no espaço sideral. 


CÓDIGO DE MÁQUINA 
Pense em uma abertura musical digna do jogo Avalanche. Que 
tal um velho sucesso de 1560? 


PROGRAMAÇÃO DE JOGOS 
Se você quer saber como derrotar o computador, digite a segunda parte 
do jogo do Otelo apresentada neste artigo. 





